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X.l 



INTRODUCTION 



The Lisa featured a 16K byte ROM containing 68000 code that tested the Lisa's hardware, 
booted the Lisa operating system from the startup disk drive or a slot-based boot card, 
and provided a special service facility called the ROM Monitor which normally only 
Apple's manufacturing and service people used. 

The Lisa source code, version 2 revision H dated 24 February 1984, provided a concise 
description of the Boot ROM' s purpose and user controls . This summary follows : 
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Function: Initializes LISA system for use and performs preliminary 
diagnostic checks. If all tests pass, the system then 
does a keyboard scan to check for user input. If any key 
is hit other than caps lock or the mouse button, 
a menu is displayed on the screen showing the available 
boot devices . If a valid COMMAND key sequence is detected, 
a boot from an alternate device is attempted (see below) . 
If no keyboard input is detected, the system first checks 
parameter memory for a valid boot device and, if none, defaults 
to booting from a Profile attached to the builtin parallel port 
for Lisa 1 systems . 

For Lisa 2 systems, a check is first made to verify a disk 
(internal or external) is connected before defaulting to the 
hard disk boot. If no disk is detected, the system defaults 
to booting from the floppy drive. 



Inputs: Checks for keyboard input from the user. Currently, the following 

key sequences are honored if input after the system "clicks" the 
speaker (CMD refers to the Apple key on the keyboard) : 



CMD/1 
CMD/2 
CMD/3 
CMD/4 
CMD/5 
CMD/6 
CMD/1 
CMD/8 
CMD/9 



boot from Twiggy drive #1 or integral hard disk 

boot from Twiggy drive #2 or SONY drive 

boot from Profile attached to parallel port or integral hard disk 

boot from I/O slot #1 , port 1 

2 

1 

2 

1 

2 



boot from I/O slot #1 , port 

boot from I/O slot #2 , port 

boot from I/O slot #2 , port 

boot from I/O slot #3, port 

boot from I/O slot #3, port 
CMD/ENTER (on key pad) - abort boot, branch to ROM monitor 
CMD/SHIFT/P - abort boot, do power cycling 



For detailed information about the Boot ROM' s operation see the following Apple 
publications : 



Lisa 2 Owner' s Guide 

Lisa 2 Owner' s Guide 

Lisa Office System 

Lisa Level 1 Technical Procedures 



(release 2, dated 1983) 
(release 3, dated 1984) 
(release 3, dated 1984, p. 
(June 1986) 



162) 



The Lisa Level 1 Technical Procedures manual had the following to say about the Boot 
ROM: 

Interpreting the Boot ROM 

On power-up, the Lisa will automatically perform a self-test using the program in its 
boot ROM. As the CRT warms up (approximately 30 seconds after power-up) , the monitor 
will display 4 icons representing the CPU, I/O, memory, and expansion cards as they 
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are being tested, 
them. 



Each icon will be hilighted in sequence as the boot ROM checks 



The boot ROM diagnostics are an overview of the system. If one of the cards is 
faulty, its icon will be presented on the screen with an "X" through it. The testing 
will stop. Upon failure you should reseat the board, power-up, and if you get that 
error message again, swap out the board. If the system passes, and ROM code numbers 
are correct, you can use the Lisa/Macintosh XL Test diagnostic for further testing. 

The Boot ROM was written in around 12,000 lines of 68000 assembly language. The source 
code existed as a set of 6 files with the following file names and purposes as found in 
the source code: 



< 


1> 


Filename : 


RMXXX.Y.TEXT, 


XXX = ROM VERSION # (e.g., 200 for 2.00) 


< 


2> 






Y = E (equates) 


< 


3> 






= K (kernel tests) 


< 


4> 






= S (secondary tests) 


< 


5> 






= B (bootstrap code) 


< 


6> 






= M (monitor code) 


< 


7> 






= G (graphics, icon and message display) 



The source file names for version 2.48 (48 is the ASCII value for "H") were: 

RM248.E.TEXT 
RM248.K.TEXT 
RM248.S.TEXT 
RM248.B.TEXT 
RM248.M.TEXT 
RM248.G.TEXT 



X.2 



BOOT ROM HISTORY AND PROGRAMMERS 



The source code for the Boot ROM provided an extensive modification history. This 
history listed the main programmer, Rich Castro, and within the source code the names 
of other ROM programmers appeared: 



Rich Castro 
Ken Schmal 
Ron Hochsprung 
Rick Meyers 
Mike Urquhart 



(main programmer) 

(video PROM serial number reading) 

(video PROM serial number reading) 

(mouse & cursor I/O) 

(mini -graphics package) 



The modification history follows : 



< 1> 


Originator : 


Rich Castro 


< 2> 






< 3> 


Modified by: 


Rich Castro 


< 4> 






< 5> 






< 6> 






< 7> 






< 8> 






< 9> 






< 10> 






< 11> 






< 12> 






< 13> 






< 14> 






< 15> 






< 16> 






< 17> 







7/30/81 - Version . released to manufacturing 

7/30 - 11/3/81 - Made the following changes: 

1) Twiggy bootstrap capability 

2) Initial COPS test and keyboard scan 

3) Moved parallel card to slot 2 

4) Changed ROM interrupt/exception vectors, 

5) Created jump table for ROM routines 

11/3/81 - Version 0.7 released to the world 

11/4/81 - 1/15/82 - Made the following changes: 

1) Added support for new memory cards 

2) Added warm-start capability and jump 
table for ROM subroutine usage 

3) Modified MMU reset routine to support 
single step board usage 
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4) Added full memory initialization 

5) Added 256K memory parity test 

6) Modified COPS initialization so that 
keyboard commands can be sensed more 
reliably 

7) Added error code display routines and 
display of CPU and 10 ROM versions 

8) Added preliminary disk controller test 

9) Updated warm-start check 

10) Modified disk interface test 

11) Changed low memory assignments 

12) Made corrections for no I/O board, disk 
interface error and contrast setting 

13) Modified memory sizing routine to 
catch memory errors 

14) Modify MMU test to avoid context 
destruction, add contrast setting for 
new machines, correct disk error and 
CPU ROM messages 

15) Move stack so old memory test still runs 

1/15/82 - Release version 0.16 

1/18/82 - Fix stack problem and release vrsn . 17 

1/19/82 - Change stack for call routine and version 

to 0.18 
1/27/82 - Change MMU error routine to do address 

and data line toggling 
1/28/82 - Add video circuitry test 
1/30/82 - Add write wrong parity test 
1/31/82 - Move run time stack to $180 
2/6/82 - Add Profile bootstrap with upgrade for 

OS use (add jump table entries also) 
2/15/82 - Update Twiggy bootstrap and add entry 

for OS use; also add MMU test to 

conditional assembly and add context 

saving to MMUTST2 routine 
2/17/82 - Add correction to memory test for 

reboot problem and leave parity on 
2/24/82 - Add code for clock test and special 

burn-in cycling 
2/25/82 - Add code to simulate soft on switch 

pressed for COPS problem 
3/1/82 - Removed all changes since ROM 0.18 

release except for parity enabling, 

no reset feature, memory sizing change 

and Profile booting 
3/1/82 - Restore default stack ptr loc to $300 
3/1/82 - Move default stack to $0400, restore 

everything except MMU testing 
3/4/82 - Add MMU initialization and modify 

Twiggy, Profile boot routines for new 

load point 
3/10/82 - Add change for new I/O addresses and 

fix for Twiggy routine 
3/10/82 - Change contrast value for new I/O's 
3/15/82 - Add correction for Profile and COPS 

routines and display msg when booting 
3/17/82 - Restore version # at end of file 
3/18/82 - Release version 0.22 

4/5/82 - Make initial 2732 version (1.00); add 
following changes: 

1) correct MMU error routine bug 

2) change stack for CALL to $0400 

3) add parity disable to WWP routine 
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4) change MMU I/O space code to '9' 

5) add invalid boot code message 
4/6/82 - Add speaker click after COPS check 
4/7/82 - Add jump table entry for speaker 

routine, 1 second delay before "click" 
and alpha lock key check 

4/8/82 - Release version 1.00 

5/5/82 - Add I/O slot configuration check and 

I/O slot booting. Also add change to 

Profile read routine for PCR setting. 
5/12/82 - Add burnin power-cycling routine as 

boot option invoked by CMD/P. 
5/13/82 - Add changes for COPS command timing, 

Twiggy timeout, Twiggy booting, and 

add power-cycling routine. 
5/14/82 - Add fixes for booting via parameter 

memory and COPS timing experiment. 
5/17/82 - Add display of loop count and run time, 

and alter parameter memory useage for 

power-cycling option. 
5/18/82 - Add display of Twiggy errors, change 

COPS routine for precheck code. 
5/20/82 - Add contrast reset for "warm start" , 

add cycle value display, restore COPS 

timeout code. 

5/21/82 - Release version 1.02 

5/26/82 - Begin addition of ROM monitor; set 

default to Apple if PM = 00. 
6/1/82 - Make following changes: 

1) Memory sizing retry count to 64 

2) Save results on memory sizing errors 

3) Update NMI routine to check for parity 
errors . 

4) Restore default NMI vector after 
memory test. 

5) Create read clock subroutine and call 
when doing clock display. 

6) Add boot fix to save device id. 
6/1/82 - Change to new sizing algorithm and retry 

count back to 32 . 
6/3/82 - Convert to version 1.03 
6/3/82 - Made following changes: 

1) Localize message display to TSTCHK 
2) Do clear screen only in INITVCT and 
in TSTCHK and second monitor level . 
3) Change default video page to last. 
4) Complete first edition of monitor. 
6/7/82 - Modify monitor level2 user interface. 
6/10/82 - Made following changes: 

l)Add boot from Apple as CMD/A. 
2) Clear screen and display only in 

routine TSTCHK. 
3) Add ROM checksum error bit. 
4) Add exception error check to TSTCHK. 
5) Add speaker click just before 

keyboard scan. 
6) Reset to first video page for boot 

from Apple. 
7) Merge in changes from 1.03 file. 
8) Add parity error check to TSTCHK 
9) Change power-cycling so that double 



The Legacy of the « Lisa: An Outsider's View [Chapter XXX] REVISION 1 



5of80 



<148> 
<149> 
<150> 
<151> 
<152> 
<153> 
<154> 
<155> 
<156> 
<157> 
<158> 
<159> 
<160> 
<161> 
<162> 
<163> 
<164> 
<165> 
<166> 
<167> 
<168> 
<169> 
<170> 
<171> 
<172> 
<173> 
<174> 
<175> 
<176> 
<177> 
<178> 
<179> 
<180> 
<181> 
<182> 
<183> 
<184> 
<185> 
<186> 
<187> 
<188> 
<189> 
<190> 
<191> 
<192> 
<193> 
<194> 
<195> 
<196> 
<197> 
<198> 
<199> 
<200> 
<201> 
<202> 
<203> 
<204> 
<205> 
<206> 
<207> 
<208> 
<209> 
<210> 
<211> 
<212> 



bus fault used to restart diags 
6/11/82 - Made following changes: 

1) Increase Twiggy timeout to 2 mins . 
2) Add 5 sec delay in power-cycle mode 

before shutting down. 

6/14/82 - Release version 1.04 

6/22/82 - Add loop after COPS test if error 

since keyboard not accessible. Also add 
fix for NMI restore after memory test. 
6/30/82 - Made following changes: 

l)Add parameter memory and I/O boot 

checksum routines . 
2) Remove boot id save to parameter 

memory, except for power-cycle. 
3) Change to new boot device id's. 
7/1/82 - l)Add changes for new Twiggy firmware. 
2) Add fixes for bugs in 1.04: 
a) Add row setting before error display 

to avoid writing over menu line, 
b) Set device codes for Profile and 

I/O slots to allow display if error, 
c) Enable setting of timeout for Twiggy 

reads . 
d) Save error codes for I/O boot in 

memory. 
e)Add option of clearing memory in 
INITMON routine. 
Made following changes: 
1) Modify checksum routines 
2) Add keyboard/mouse check/ reset code 
Add speed parameter for new Twiggy code 
Add check for DSKDIAG in disk test, 
change to new Twiggy error codes 
Made following changes: 
l)Add Profile routine updates. 
2) Restore old boot id codes - new ones 
used only when new Twiggy code 
released. 
3) Upgrade burnin code for new parameter 

memory usage. 
4) Attempt to enable keyboard after MMU 

errors . 
5) Remove I/O boot checksum code until 

conversion to new Twiggy code. 
6) Add video pattern display code. . 
7) Remove characters from table and 
make other changes to save bytes . 
8) Upgrade service mode display option 
to handle count up to $FFFF. 

7/16/82 - Create version 1.05 

7/19/82 - Add bug fixes for MMU testing, power- 
cycle memory testing, Profile boot 
and service mode display option. 

7/19/82 - Create version 1.06 
7/20/82 - Add fix for MMU testing to properly 
record context in error 

7/20/82 - Release version 1.07 

7/21/82 - Make keyboard/mouse reset code changes 
and move check to before first "click" 



7/7/82 



7/13/82 
7/14/82 

7/15/82 
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<213> 

<214> 
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<236> 
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<243> 
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<248> 
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<250> 
<251> 
<252> 
<253> 
<254> 
<255> 
<256> 
<257> 
<258> 
<259> 
<260> 
<261> 
<262> 
<263> 
<264> 
<265> 
<266> 
<267> 
<268> 
<269> 
<270> 
<271> 
<272> 
<273> 
<274> 
<275> 
<276> 
<277> 



7/23/82 - Add extended memory tests 

7/27/82 - Add screen memory test and VIA tests . 

Change default boot for new Twiggy code 

to upper Twiggy. Add conditionals for 

Apple code. 
7/29/82 - Add SCC test, optimize code. 
7/30/82 - Add RAM address uniqueness test. 
8/4/82 - Added the following: 

1) Twiggy mods for interleave 
2) Monitor options CONTINUE and LOOP 
3) Exception routine for line 1111 and 
line 1010 errors . 
8/9/82 - Add Twiggy mod for disk clamp, add mods 

for kernel test failures such as screen 

flash on MMU error. 
8/11/82 - Add memory sizing fix, increase delay 

for COPS and change default boot to 

TWIGGY ! ! 
8/12/82 - Begin code changes for new user interface 

and add hooks for icon display. 
8/14/82 - Add mods for Twiggy changes to monitor 

DSKDIAG line and add initial timeout. 

Continue user interface changes . 
8/18/82 - Add mouse, cursor code and changes for 

Customer mode to use mouse. 
8/23/82 - Add controls for 2716 version of ROM. 

Add changes for Service mode to use 

pull down menu, eliminate keyboard 

queuing while awaiting input. 
8/24/82 - Add dialog box, and window to service 

mode with modified scroll and character 

output routines. 
8/25/82 - Add icons along with routines to display 

during test and for errors . 
8/27/82 - Add routines for displaying and using 

boot icon menu. 
8/30/82 - Add auto boot from Applenet. 
8/31/82 - Add minor additions to Service mode 

for Set and Loop options . 

8/31/82 - Create and do internal release of 

2716 (0.24), 2732 (1.15) and 2764 (2.00) 
ROM versions . 

9/8/82 - Add fixes for I/O slot icon display 
and Profile icon display. 

9/9/82 - Add fix for reboot problem in 2716 ROM. 
Add serial # read routine and test for 
2732 and 2764 ROM versions. Expand 
stack for serial read routine. 

9/10/82 - Add fix for device code display for ROM 
versions . 24 and 1.15. 

9/10/82 - Create and do internal release of new 
ROM versions 0.25, 1.16 and 2.01. 

9/13/82 - Add fixes for memory sizing and I/O 
slot booting. 

9/14/82 - Create and release ROM versions 0.26, 
1.17 and 2.02. 

9/22/82 - Add fixes and code for: 

1) Default video latch setting 

2) Mask for I/O and exception errors 
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<278> 
<279> 
<280> 
<281> 
<282> 
<283> 
<284> 
<285> 
<286> 
<287> 
<288> 
<289> 
<290> 
<291> 
<292> 
<293> 
<294> 
<295> 
<296> 
<297> 
<298> 
<299> 
<300> 
<301> 
<302> 
<303> 
<304> 
<305> 
<306> 
<307> 
<308> 
<309> 
<310> 
<311> 
<312> 
<313> 
<314> 
<315> 
<316> 
<317> 
<318> 
<319> 
<320> 
<321> 
<322> 
<323> 
<324> 
<325> 
<326> 
<327> 
<328> 
<329> 
<330> 
<331> 
<332> 
<333> 
<334> 
<335> 
<336> 
<337> 
<338> 
<339> 
<340> 
<341> 
<342> 



9/23/82 



9/24/82 
9/25/82 

9/29/82 
9/30/82 



10/5/82 



10/6/82 



10/7/82 



10/9/82 - 
10/10/82 



3) Message display on external calls 
to ROM monitor 

4) Contrast setting before screen test 

5) Disable of NMI key on power-up 

6) Boot failure after first load 

7) Error tones for failures 

8) Loop mode setting of NMI key 
Add 

1) Power cycling 

2) Full service mode menu 

3) Loop mode test choice display 
Add dump memory option to service mode 
Modify display memory option to allow 
count and address data on same line 
Add jump table entry for READMMU 
Add: 

1) "No reset" feature 

2) Verify Disk option for service mode 

3) Optimize cursor routines and 

remove unused CursorShield routine. 

4) Invert rectangles when selected from 
keyboard. 

5) Display boot menu only if down keycode 
detected. 
Add: 

1) Memory error decoding to board level 

2) New size and position for alert box 

3) New test icon display 

4) Diskette # for Twiggy errors 
Add: 

1) Continue keyboard scan after COPS 
errors 

2) Set extended memory test bit for 
loop on memory test option 

3) Display I/O slot card # on errors 

4) Change boot menu to "pull-down" format 

5) Change to new icons 
Add: 

1)SCC test 

2) Error if no serial # (allow continue) 

3) Two passes of memory tests for extended 
mode, one for regular mode 
Create version 2 . 03 
- Add bug fixes and I/O slot ROM check in 

config scan. 



10/12/82 - Create and release version 2.04. 



10/13/82 



10/14/82 
10/18/82 

10/20/82 
10/21/82 



10/22/82 



Make following changes: 

l)Add keyboard reset code 

2) Remove SCC test 

3) Add bug fixes for making alert box 
and displaying bad keyboard 
Add display of check marks for test icons 
Add fixes for Monitor entry, Profile boot, 
looping on diag tests 
Add message translations 
1) Adjust alert box and button dimensions 
2) Add boot from all ports on I/O slots 
3) Add fix for CMD key detection in monitor 
4) Change powercycle window to alert box 
5) Extend verify timeout to 4 minutes 
l)Add keyboard reset on external entry to ROM 

monitor 
2) Make Dump Memory routine conditional on 
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<343> 
<344> 
<345> 
<346> 
<347> 
<348> 
<349> 
<350> 
<351> 
<352> 
<353> 
<354> 
<355> 
<356> 
<357> 
<358> 
<359> 
<360> 
<361> 
<362> 
<363> 
<364> 
<365> 
<366> 
<367> 
<368> 
<369> 
<370> 
<371> 
<372> 
<373> 
<374> 
<375> 
<376> 
<377> 
<378> 
<379> 
<380> 
<381> 
<382> 
<383> 
<384> 
<385> 
<386> 
<387> 
<388> 
<389> 
<390> 
<391> 
<392> 
<393> 
<394> 
<395> 
<396> 
<397> 
<398> 
<399> 
<400> 
<401> 
<402> 
<403> 
<404> 
<405> 
<406> 
<407> 



final LISA ROM 
10/25/82 - 1) Change wait for disk error to branch to 
monitor - CONTINUE option then continues 
with the same boot device 
2) Change RETRY phrase to RESTART 
10/27/82 - Made following changes: 

1) RESET instruction on startup 

2) Jump table entries for access to memory 

test and display decimal routines 
3) Optimize warm start reset check and 

MMU error loop routines 
4) Change default video page to $2F for 

no memory found. 
5) Rewrite screen memory test. Change main 
memory test to go from low memory 
to base of screen memory. 
6) Move inverse video check to after screen 
test, doing rewrite only of screen page. 
7) Add new boot failure code, with hooks to 
catch booting errors after ROM has 
released control to boot loader for Twiggy 
and Profile booting. 
10/29/82 - Add display for uncompressed slot card icons. 

Modify TONE routine to init PCR reg. 
11/1/82 - Change external entry to monitor interface 

so that error code displayed on same line as 
message if no icon displayed 
11/3/82 - Made following changes: 

l)Move creation of test icon display till 
after keyboard reset so translation can 
be done if necessary 
2) Do cursor, mouse init only once so 

cursor posn not reset 
3) Optimize mouse, cursor routines 
4) Correct COPSCMD routine 
5) Upgrade check for Profile routine and 
optimize Profile read code 
Conditionally add check for keyboard connected 
routine . 

Create version 2.07 
Modify ROM checksum algorithm 
Add diskette eject on power-off 
1) Remove Dump Memory /Verify Disk from Service 

mode menu 
2) Add speaker beep and specific read/ write 
loop for memory sizing and lo mem errors 
l)Add keyboard/mouse disconnect check 
2) Remove memory "clear" from sizing test - now 

done after memory testing 
1) Change power-cycle invoking to CMD/SHIFT/P 

key sequence. 
2) Change customer monitor mode invoking to 

CMD /ENTER (on key pad) key sequence. 
3) Add wait for profile loop in boot menu 

display routine 
4) Add timeout to general wait for clock 

input routine 
5) Increase delay for poweroff wait loop 
6) Optimize character display routine 
11/18/82 - l)Add save of error code to special parameter 
memory area for use during burnin. 
2) Add context check for MMU testing 
3) Create version 2.08 for internal release 
11/19/82 - 1) Change initial position of cursor to center 
of screen. 



11/8/82 

11/9/82 
11/11/82 
11/12/82 
11/13/82 



11/15/82 



11/16/82 
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<408> 
<409> 
<410> 
<411> 
<412> 
<413> 
<414> 
<415> 
<416> 
<417> 
<418> 
<419> 
<420> 
<421> 
<422> 
<423> 
<424> 
<425> 
<426> 
<427> 
<428> 
<429> 
<430> 
<431> 
<432> 
<433> 
<434> 
<435> 
<436> 
<437> 
<438> 
<439> 
<440> 
<441> 
<442> 
<443> 
<444> 
<445> 
<446> 
<447> 
<448> 
<449> 
<450> 
<451> 
<452> 
<453> 
<454> 
<455> 
<456> 
<457> 
<458> 
<459> 
<460> 
<461> 
<462> 
<463> 
<464> 
<465> 
<466> 
<467> 
<468> 
<469> 
<470> 
<471> 
<472> 



11/19/82 - Release versions 2.08 (internal) and 
2.09 (for manufacturing) 

12/15/82 - Add: 

1) Setting of VIA PCR reg for later use 

2) Reset of keyboard before boot 

3) Fix for slot 3 card check for boot menu 

12/16/82 - Add: 

l)Move Profile and buffer to location $304 
2) Change default boot device to Profile 
3) Remove support for third boot port on 

each slot 
4) Expand id range for test card search 
5) Don't display Restart button after boot 

error 
6) New icons 

12/18/82 - Fix memory test bug 

1/3/83 - Fix bug in reporting parity circuitry 

failure. Change version to 2.10. 
1/7/83 - Make following changes : 

1) Change keyboard sequences for I/O slot 
booting 

2) Extend timeout for inital Profile check 
1/11/83 - Change SCC test to use max baud rate for 

loopback test 
1/12/83 - Add running of expansion card status routines 

when configuration check is done 
1/18/83 - Add fixes for: 

1) Continuing after memory error 

2) Checking for no reset function 

3) Memory sizing - search entire possible 2 meg 

4) Read of I/O slot ROM for icon data - 
ensure odd address for icon count 

5) Default boot setting when loop on memory 
test selected 
1/21/83 - Add save of disk controller self-test status 

1/28/83 - Create and release ROM version 2.11 

3/15/83 - Extend Profile timeout for case where drive 

may be parking head, (bug RM016) 
4/20/83 - Add fixes for: 

l)Memory sizing (bug RM015) . 
2) Garbage sent out serial port (RM014) . 
3) Removed 6504 (bug RM013) . 
4) Never ready Profile (bug RM011) . 
Also do some code optimization in icon 
routines to make room for fixes. (RM000) 
4/22/83 - Do code optimization for setting bus error 
vector (labeled as RM000) . 
Add changes for following requests : 
l)Display ROM id's on bootup (CHG001) 
2) Loop on address lMeg-2 if sizing error (CHG002) 
3) Turn off contrast before doing poweroff (CHG003) 
4) Change copyright notice. (CHG005) 

Also modify alert msg display routine (CHG005) . 
4/26/83 - Add loop on CPU diags if no memory or I/O 

board installed. Also toggle LED. (CHG004) 
4/27/83 - Do only basic memory test on warm-start. (CHG006) 

Add fix for NMI bug (RM010) . 
5/9/83 - Made following changes : 

1) Change ROM id display to rev # (D) (CHG001) 

2) Change ROM test failure to loop at fixed address 
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<473> 
<474> 
<475> 
<476> 
<477> 
<478> 
<479> 
<480> 
<481> 
<482> 
<483> 
<484> 
<485> 
<486> 
<487> 
<488> 
<489> 
<490> 
<491> 
<492> 
<493> 
<494> 
<495> 
<496> 
<497> 
<498> 
<499> 
<500> 
<501> 
<502> 
<503> 
<504> 
<505> 
<506> 
<507> 
<508> 
<509> 
<510> 
<511> 
<512> 
<513> 
<514> 
<515> 
<516> 
<517> 
<518> 
<519> 
<520> 
<521> 
<522> 
<523> 
<524> 
<525> 
<526> 
<527> 
<528> 
<529> 
<530> 
<531> 
<532> 
<533> 
<534> 
<535> 
<536> 
<537> 



5/10/83 



5/12/83 



$00FE00C8 (end of jimp table) (CHG007) 
3) Make correction for screen not cleared when 

continuing from I/O slot error to boot menu. 

(CHG008) 
Add change to enable display of uncompressed icons 
upon external entry to ROM Monitor (CHG008) . 

Create and release rev D of boot ROM. 



(CHG009) 



(CHG011) 
(CHG012) 
(CHG013) 
(CHG014) 



8/8/83 - Add changes for Pepsi system: 

1 ) New icons . 

2) Display of icons with id #'s. 
8/9/83 - Add save of disk ROM id in low memory. (CHG010) 

Add fixes for: 

1) SCC init for Applebus. 

2) Test card boot search. 
8/10/83 - Delete inverse video check. 

Add fix to beep routine. 
8/16/83 - Delete memory address and ping pong routines, 

add routines to decode parity error to 

chip. (CHG015) 
9/1/83 - Add retry for hard disk booting. (CHG016) 

Add jump table entry for write to 

parameter memory routine. (CHG017) 
9/2/83 - Add new font, modify display routines. (CHG018) 

Add wait for hard disk ready when 

power-cycling. (CHG019) 
9/6/83 - Add setting of video latch whenever boot 

error causes jump to ROM low memory default 

vectors. (CHG020) 

Add fix for memory test/initialization 

bug. (CHG021) 
9/7/83 - Add read of disk controller ROM self-test 

results. (CHG022) 

Add skip of disk eject on power-off if any 

disk controller errors occurred. (CHG023) 

9/8/83 - Release for testing (rev 3B) with Pepsi systems . 

10/10/83 - l)Make Pepsi icon changes. (CHG024) 

2) Add fix for proper setting of carry bit 

on floppy or hard disk boots. (CHG025) 
3) Add fix for video reset on boot from not ready 
Profile. (CHG026) 
10/12/83 - Add change to reset SCC for Applebus before 

doing memory test. (CHG027) 
10/20/83 - Add fix for service mode bus error problem. (CHG028) 



10/20/83 - Release as rev E for Lisa and Pepsi systems. 

12/15/83 - l)Add new code to determine system type. (CHG029) 
2) Change default boot device for Lisa 2 

system if no hard disk connected. (CHG030) 
3) Extend timeout for hard disk ready. (CHG031) 
4) Add bug fix for wrong icon display on Lisa 2. 

(CHG032) 
5) Add bug fix for menu display when mouse or 

keyboard not connected. (CHG033) 
6) Remove save of error code in parameter memory. 
(CHG034) 
12/16/83 - Release as rev 'X' for testing 

12/21/83 - Release as official rev 'F' for all systems 
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<538> ; 1/25/84 - l)Add code to properly initialize Profile-reset 

<539> ; and parity-reset lines for Profile booting 

(CHG036) 
<540> 
<541> 
<542> 
<543> 
<544> 
<545> 
<546> 
<547> 
<548> 



2/7/84 - 1) Extend hard disk default read timeout to 16 
seconds for Widget systems. (CHG037) 
2) Add delay after hard disk reset for Widget 
systems. (CHG038) 

2/8/84 - Release as rev G for testing 

2/24/84 - Release as official rev H 



X.3 BOOT ROM SYSTEM DIAGNOSTIC TESTS 

The Boot ROM provided an extensive collection of diagnostic tests whose purpose was to 
verify that the Lisa's hardware was working correctly. The Lisa 2 Owner's Guide 
(release 2 dated 1983) had the following to say about these startup tests in Section C: 
Troubleshooting : 

Procedure N: Startup Symptoms and Error Messages 

Every time you turn on the Lisa, the system automatically runs a series of internal 
tests. These tests fall into two categories: 

o The KERNEL TESTS, which are designed to catch problems serious enough to interfere 
with the rest of the sequence. After the kernel tests, the Lisa emits one click. 

o The MODULE TESTS, which may result in specific error messages . After the module 
tests, the Lisa emits a double click. 

Errors detected during the tests can result in screen messages, error tones, or both. 

The Lisa 2 Owner's Guide (release 3 dated 1984) provided a list of the startup tests. 
A summary of this list follows : 

ROM Checksum 

MMU Register Test 

Memory Sizing 

Preliminary Memory Test 

VIA Test 

Screen Memory Test 

CPU Board Test 

I/O Board Test 

Memory Test 

When the startup tests completed, the Lisa would either boot the Lisa operating system 
if there were no test problems , or if testing indicated a problem an error message 
would appear. Error messages consisted of an icon showing the part which failed and a 
failure number (or the Lisa emitted Hi and Lo frequency tones if the failed test was a 
critical Lisa component which caused the screen to not display anything) . For example, 
if the Lisa encountered an I/O board error the Lisa would display the I/O board icon 
and a number in the range 50 to 60 (number 50 signified that the keyboard VIA chip was 
not functioning correctly) . 

The startup tests took around one minute to execute. Booting the operating system took 
around 5 minutes . 

The Lisa also displayed the Boot ROM and the floppy disk controller ROM versions in the 
upper right corner of the screen. For my Lisa 2/10 model these appear as "H/88" where 
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"H" is the Boot ROM version and "88" is the floppy controller ROM version. 

After the diagnostic tests ran the Boot ROM stored a large amount of information into 
an area of the Lisa's memory. This information was used by the Lisa Operating System 
and most likely the Lisa Office System. Users with knowledge of the Boot ROM's Monitor 
could also access this information via the Monitor's memory display facility. Details 
of this information from the Boot ROM source code follow: 



1> 

2> 
3> 

4> 
5> 
6> 

7> 
8> 
9> 
10> 
11> 
12> 
13> 
14> 
15> 
16> 
17> 
18> 
19> 
20> 
21> 
22> 
23> 
24> 
25> 
26> 
27> 
28> 
29> 
30> 
31> 
32> 
33> 
34> 
35> 
36> 
37> 
38> 
39> 
40> 
41> 
42> 
43> 
44> 
45> 
46> 
47> 
48> 
49> 
50> 
51> 
52> 
disk, 

< 53> 

< 54> 

< 55> 



OUTPUTS: Saves various results and contents of system registers in memory 
for examination by system programs or with the ROM monitor. 



$180-183 

$184-185 

$186-1A5 

$1A6-1A9 

$1AA-1AB 

$1AC-1AF 

$1B0-1B1 

$1B2 

$1B3 

$1B4-1B9 

$1BA-1BF 

$ ICO -IDF 

$1E0-1FF 

$240-260 

$260-267 

$268-26B 

$26C-26F 

$270-273 

$274-277 

$278-27B 

$27C 

$27D 

$27E-280 

$280-293 



$294-297 

$298-299 

$29A-29B 

$29C-29D 

$29E 

$29F 

$2A0 

$2A1 

$2A2-2A3 

$2A4-2A7 

$2A8-2AB 

$2AC 

$2AD 

$2AE 

$2AF 



$2B0-2BF 
$2C0-480 



Power-up status (X0000000 = ok) 
Memory sizing error results 
Results of memory read/write tests 

Parity error memory address (if error during mem test) 
Memory error address latch 
D7 save on exception errors 
Results of MMU tests (context/data bits) 
Keyboard ID (00 = no ID received) 
Boot device ID 
Boot failure data 
Clock setting (Ey,dd,dh,hm,ms,st) 
Data reg save area (DO - D7) 
Address reg save area (A0 - A7, A7 = USP) 
System serial # 
Scratch area 

Suspected (logical) memory error address for parity error 
Save of data written to suspected error address 
Actual (logical) error address found during search 
Save of data read during parity error search 
(Physical) error address read from parity error address latch 
Error row for parity chip failure (0 = first row, 7 = last row) 
Error column for parity chip failure (9 or 14) 
Reserved 

Exception data save area 
(FC/EXCADR/IR/SR/PC/EXCTYPE/SSP) 

44 = NMI or other interrupt 

45 = bus error 

46 = address error 

47 = other exception/interrupt 

48 = illegal instruction error 

49 = line 1010 or 1111 trap 

50 = bus error accessing keyboard VIA 

51 = bus error accessing parallel port VTA 
57 = bus error accessing disk controller 

Maximum physical memory address + 1 

I/O slot 1 card id (0 = no card present) 

I/O slot 2 card id 

I/O slot 3 card id 

Reserved 

Reserved 

Reserved 

Disk ROM id 

Reserved 

Minimum physical address 

Total memory (Max-Min) 

SCC test results 

Slot # of memory board if memory error 

Result of disk controller self-test 

System type (0 = Lisa 1, 1 = Lisa 2,2= Lisa 2 with external hard 

3 = Lisa 2 with internal hard disk) 
Keyboard queue (16 bytes) 
ROM scratchpad/stack area 
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56> 
57> 
58> 
59> 
60> 
61> 
62> 
63> 
64> 
65> 
66> 



$480-800 : Reserved for ROM local variable usage 

Also saves data in special parameter memory area reserved for boot ROM use if error 
encountered. Usage is as follows: 

$FCC161 : Error code 

$FCC163-165 : Contents of memory error address latch if parity error 

$FCC167 : Memory board slot # if memory error 

$FCC169-173 : Last value read from clock 

$FCC175-17B : Reserved 

$FCC17D-17F : Checksum 



The Boot ROM also determined the type of Lisa that the ROM was running on (refer to 
memory location $2AF in the above listing) . The ROM could detect the following Lisa 
systems : 

o Lisa 1 

o Lisa 2 

o Lisa 2 with an external hard disk (either Apple's 5Mbyte ProFile or Priam's 80Mbyte 

Data Tower) 

o Lisa 2 with an internal hard disk (Apple's 10Mbyte Widget) 

The system type was determined by the following ROM routine (note the use of the floppy 
disk ROM id to determine if the Lisa is a Lisa 1 by checking if a Twiggy drive is 
present) : 



1> 
2> 
3> 
4> 
5> 
6> 
7> 
8> 
9> 



Subroutine for determining system type 

Returns type value in DO and sets SYSTYPE location in memory 
DO = - Lisa 1 

1 - Lisa 2/external disk with slow timers 

2 - Lisa 2/external disk with fast timers 

3 - Lisa 2/internal disk (Pepsi) with fast timers 



< 10> 

< 11> 

< 12> 

< 13> 

< 14> 

< 15> 

< 16> 

< 17> 

< 18> 

< 19> 

< 20> 

< 21> 

< 22> 

< 23> 

< 24> 



SETTYPE CLR.L 
MOVE.B 
TST.B 
BPL.S 
BTST 
BEQ.S 
MOVEQ 
BRA.S 
BTST 
BEQ.S 
MOVEQ 
BRA.S 
MOVEQ 
MOVE.B 
RTS 



@1 



@2 
@9 



DO 

DISKROM,Dl 

Dl 

@9 

#SL0TMR,D1 

@1 

#1,D0 

@9 

#FASTMR,D1 

@2 

#2, DO 

@9 

#3, DO 

DO , SYSTYPE 



; clear for type usage 

;read disk id 

; check for Lisa 1 

;skip if yes 

;Lisa 2 with slow timers? 

;skip if not 

;else set type 

;Lisa 2 with fast timers? 
;skip if not 
;else set type 

;else must be Pepsi with fast timers 
;save system type 



CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 
CHG029 



Note the reference to "Pepsi" which was the Lisa 2's code name by Apple since John 
Sculley, formerly of Pepsi, was head of Apple at this time. 



X.4 



BOOT ROM OPERATING SYSTEM BOOTING 



xxxx 

X.5 BOOT ROM SERVICE MODE 

The Lisa' s ROM Service Mode is a very esoteric feature of the ROM which seems to be a 
tool for use by trained Lisa service or manufacturing people. Documentation for this 
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feature does not seem to exist. Even Apple's Lisa Level 1 Technical Procedures 
(revision June 1986) does not mention this feature. 

An excellent discussion of the Service Mode may be found in Larry Pina' s book Macintosh 
Repair & Upgrade Secrets (1st edition, pages 235-280) . Chapter 13, Lisa/Macintosh XL 
Repair Secrets, has the following to say about the Service Mode (p. 254): 

In addition to the automatic startup tests, the Lisa has a built-in service mode. The 
built-in service mode is top secret. Very few people know it exists. No one I've 
spoken to, not even the most knowledgable Lisa owners and technical support people, 
have ever seen the documentation. Whether the documentation was lost, or whether it 
was ever written, remains a mystery. Still, some tests are easy to figure out. 
Adjust Video, for example, puts up a 1/2-inch reverse video Crosshatch. 

Here's how to enter the built-in service mode: 

1. If the computer is on, turn it off. Wait a few seconds, then without inserting a 
startup floppy disk, turn the computer on again. 

2. At the end of the kernal test (when you hear the first click), hit any key except 
Caps Lock. Hitting a key interrupts the normal startup procedure and turns on the 
Startup From mode. 

3. At the end of the module test (when you hear the second click), hold down the Apple 
key and press the 2 key. 

4. Since there's no floppy disk in the disk drive, the Lisa beeps three times and 
presents you with an error box. Ignore it! 

5. Hold down the Apple key and press the "S" key, "S" presumably stands for "Service" . 
Case is irrelevant. Pressing S, or s, will engage the service mode. 

Without more information, I can only speculate as to the purpose of these tests. My 
best guess is that they were used on the assembly line for quality control. 

If you follow the steps that Mr. Pina discusses you should see the following pull-down 
menu in the upper left corner of the screen: 



OPTIONS 




DISPLAY MEM 


1 


SET MEMORY 


2 


CRLL PR0GRRN 


3 


LOOP ON TEST 


4 


RDJUST UIDEO 


5 


POWER CYCLE 


6 


QUIT 


7 



You can select a specific test using either the mouse or by typing a numeric key (e.g. 
typing "2" will activate the SET MEMORY menu command) . You will also see two windows 
on the right side of the screen: 
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TEST ? 





SERUICE MODE 




1 





ROM 




2 


- 


ririu 




3 


- 


UIDEO 




4 


- 


PAR 1 TV 




5 


- 


PRRR Ulfl 




6 


- 


KYBD Ulfl 




7 


- 


COPS 




8 


- 


sec 




9 


- 


DISK 




n 


- 


CLOCK 




B 


- 


MEMORY 




C 


- 


10 SLOTS 





The above SERVICE MODE window shows an additional set of commands that are activated 
when you select the LOOP ON TEST command from the OPTIONS menu. These tests allow you 
to select and run specified tests for selected durations . The window with TEST ? 
inside it contains other requests depending upon the selected menu command. For 
example, if select the DISPLAY MEM menu command the top window asks for the starting 
address of memory to display and the number of bytes to display. 

From the Boot ROM source code's perspective, the Service Mode was called Level 2 of the 
Lisa ROM Monitor. Level 1 was called the customer level. 

Additional ROM Monitor support existed in the area of communications with an external 
computer. There are several comments and routines in the source code which allowed an 
Apple 2 computer user to boot the Lisa and for sending data between the Lisa and the 
Apple 2. I assume this feature allowed an Apple 2 program to control the Lisa, at 
least at the Lisa ROM level . 



X.6 



BOOT ROM SOURCE CODE METRICS 



As part of my interest in software metrics I wrote several Macintosh MPW shell tools 
which produced a fair amount of metric data concerning the Boot ROM source code . These 
metrics were aimed at the number of source file lines and the ratio of comments to 
source lines, and at the source code's opcode usage. 

In my opinion the Boot ROM source code was very well written in terms of readability. 
I found the general comments at the start of the source code to be very helpful in 
understanding how the ROM worked and how it was organized. The history modification 
listing was excellent. The routines within the source code were also documented well 
with each having a heading commentary. The analysis of the source code for the comment 
ratio showed that on a line basis the source contained around 20% comments. 

As an example of the routine header comments, here's a sample from the mouse handling 
portion of the Boot ROM: 
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1> 

2> 
3> 
4> 
5> 
6> 
7> 
8> 
9> 
10> 
11> 
12> 
13> 
14> 
15> 
16> 
17> 
18> 
19> 
20> 
21> 
22> 
23> 
24> 
25> 
26> 
27> 
28> 
29> 
30> 
31> 
32> 
33> 
34> 
35> 
36> 
37> 
38> 
39> 
40> 
41> 
42> 
43> 
44> 
45> 
46> 
47> 
48> 
49> 
50> 
51> 



Hardware Interface for the Mouse 

Written by Rick Meyers 
(c) Apple Computer Incorporated, 1983 

The routines below provide an assembly language interface to the mouse. 
Input parameters are passed in registers, output parameters are returned 
in registers. Unless otherwise noted, all registers are preserved. 

The Mouse 

The mouse is a pointing device used to indicate screen locations . Mouse 

coordinates are located between pixels on the screen. Therefore, the 

X- coordinate can range from to 720, and the Y- coordinate from to 364. 
The initial mouse location is 0,0. 

Mouse Scaling 

The relationship between physical mouse movements and logical mouse 
movements is not necessary a fixed linear mapping. Three alternatives 
are available: 1) unsealed, 2) scaled for fine movement and 3) scaled 
for coarse movement. 

When mouse movement is unsealed, a horizontal mouse movement of x units 
yields a change in the mouse X-coordinate of x pixels. Similiarly, a 
vertical movement of y units yields a change is the mouse Y-coordinate 
of y pixels . These rules apply independent of the speed of the mouse 
movement . 

When mouse movement is scaled, horizontal movements are magnified by 3/2 
relative to vertical movements. This is intended to compensate for the 
2/3 aspect ratio of pixels on the screen. When scaling is in effect, a 
distinction is made between fine (small) movements and coarse (large) 
movements. Fine movements are slightly reduced, while coarse movements 
are magnified. For scaled fine movements, a horizontal mouse movement of 
x units yields a change in the X-coordinate of x pixels, but a vertical 
movement of y units yields a change of (2/3) *y pixels. For scaled coarse 
movements, a horizontal movement a x units yields a change of (3/2) *x 
pixels , while a vertical movements of y units yields a change of y pixels . 

The distinction between fine movements and coarse movements is determined 
by the sum of the x and y movements each time the mouse location is 
updated. If this sum is at or below the 'threshold' , the movement is 
considered to be a fine movement. Values of the threshold range from 
(which yields all coarse movements) to 256 (which yields all fine 
movements) . Given the default mouse updating frequency, a threshold of 
about 8 (threshold's initial setting) gives a comfortable transition between 
fine and coarse movements. 



The source code for my metric analyzer tools appears at the end of this section. 
Boot ROM Lines and Comments Metrics : 

< 1> ############################################################################### 

< 2> # # 

< 3> # SUMMARY LINE AND COMMENT METRICS FOR APPLE LISA BOOT ROM 2 . 48 SOURCE CODE # 

< 4> # # 

< 5> ############################################################################### 

< 6> 

< 7> DAVID T CRAIG - 12 JUNE 1993 
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< 8> 

< 9> These metrics describe the following source line and character information 

< 10> for a single source file: 

< 11> 

< 12> Total Lines = total number of source lines 

< 13> Total Comment Lines = total number of full comment lines (*) 

< 14> Comment / Line Count % = ratio of comment lines to source lines 

< 15> 

< 16> Total Characters = total number of source line characters 

< 17> Total Comment Characters = total number of comment characters (**) 

< 18> Comment / Line Character % = ratio of comment characters to line characters 

< 19> 

< 20> Notes: ( *) includes only comment lines that exist soley by themselves, 

< 21> not source lines with ending comments . 

< 22> (**) comment character count includes comments that exist at the end 

< 23> of a source line also. 

< 24> 

< 25> SUMMARY: These metrics show that the amount of comments in the source code 

< 26> files are around 20% on a line basis and around 50% on a character 

< 27> basis. 

< 28> 

< 29> These metrics were obtained from the Macintosh utility tool DTCGetAsmComments 

< 30> as written by David T. Craig in June 1993. 

< 31> 

< 32> Let the metrics begin . . . 

< 33> 

< 34> FILE: Lisa Boot ROM RM248.S 

< 35> 

< 36> Total Lines = 2032 

< 37> Total Comment Lines = 426 

< 38> Comment / Line Count % = 20 % 

< 39> 

< 40> Total Characters = 72687 

< 41> Total Comment Characters = 39675 

< 42> Comment / Line Character % = 54 % 

< 43> 

< 44> FILE: Lisa Boot ROM RM248.M 

< 45> 

< 46> Total Lines = 2452 

< 47> Total Comment Lines = 518 

< 48> Comment / Line Count % = 21 % 

< 49> 

< 50> Total Characters = 88459 

< 51> Total Comment Characters = 46911 

< 52> Comment / Line Character % = 53 % 

< 53> 

< 54> FILE: Lisa Boot ROM RM248.K 

< 55> 

< 56> Total Lines = 1833 

< 57> Total Comment Lines = 344 

< 58> Comment / Line Count % = 18 % 

< 59> 

< 60> Total Characters = 66653 

< 61> Total Comment Characters = 36724 

< 62> Comment / Line Character % = 55 % 

< 63> 

< 64> FILE: Lisa Boot ROM RM248.G 

< 65> 

< 66> Total Lines = 2165 

< 67> Total Comment Lines = 625 

< 68> Comment / Line Count % = 28 % 

< 69> 

< 70> Total Characters = 68960 

< 71> Total Comment Characters = 33921 

< 72> Comment / Line Character % = 49 % 
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< 73> 

< 74> FILE: Lisa Boot ROM RM248.E 

< 75> 

< 76> Total Lines = 1838 

< 77> Total Comment Lines = 742 

< 78> Comment / Line Count % = 40 % 

< 79> 

< 80> Total Characters = 83586 

< 81> Total Comment Characters = 51852 

< 82> Comment / Line Character % = 62 % 

< 83> 

< 84> FILE: Lisa Boot ROM RM248.B 

< 85> 

< 86> Total Lines = 2203 

< 87> Total Comment Lines = 401 

< 88> Comment / Line Count % = 18 % 

< 89> 

< 90> Total Characters = 81080 

< 91> Total Comment Characters = 42170 

< 92> Comment / Line Character % = 52 % 

< 93> 

< 94> ############################################################################### 

< 95> # # 
<96># FINIS # 

< 97> # # 

< 98> ############################################################################### 

Boot ROM Opcode Usage Metrics : 

< 1> ############################################################################### 

< 2> # # 

< 3> # APPLE LISA BOOT ROM 2.48 SOURCE CODE OPCODE STATISTICAL INFORMATION # 

< 4> # # 

< 5> ############################################################################### 

< 6> 

< 7> Assembly Source File Opcode Information Gatherer 

< 8> Version: 1.0 [7/11/93] 

< 9> 

< 10> File # 1: Lisa Boot ROM RM248.B.TEXT 

< 11> File # 2: Lisa Boot ROM RM248.E.TEXT 

< 12> File # 3: Lisa Boot ROM RM248.G.TEXT 

< 13> File # 4: Lisa Boot ROM RM248.K.TEXT 

< 14> File # 5: Lisa Boot ROM RM248.M.TEXT 

< 15> File # 6: Lisa Boot ROM RM248.S.TEXT 

< 16> 

< 17> Opcode List unsorted: 

< 18> 

< 19> Minimum opcode frequency = 1 

< 20> Maximum opcode frequency = 804 

< 21> 

< 22> # Opcode Frequency Histogram 

< 23> 

< 24> 1 .PAGE 115 ******** 

< 25> 2 .LIST 10 ** 

< 26> 3 BSR 479 ******************************* 

< 27> 4 CLR.L 95 ******* 

< 28> 5 BTST 86 ******* 

< 29> 6 BEQ.S 195 ************* 

< 30> 7 MOVE.B 212 ************** 

< 31> 8 .IF 253 ***************** 

< 32> 9 CMP.B 96 ******* 

< 33> 10 BNE.S 210 ************** 

< 34> n .ENDC 253 ***************** 

< 35> 12 BRA.S 251 ***************** 
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< 36> 


13 


BNE 


19 


*** 


< 37> 


14 


BCS 


14 


** 


< 38> 


15 


.ELSE 


78 


****** 


< 39> 


16 


BCC.S 


20 


*** 


< 40> 


17 


TST.B 


88 


******* 


< 41> 


18 


MOVEQ 


376 


************************ 


< 42> 


19 


LSR.B 


5 


** 


< 43> 


20 


MOVE 


228 


*************** 


< 44> 


21 


BPL.S 


22 


*** 


< 45> 


22 


MULU 


21 


*** 


< 46> 


23 


BRA 


94 


******* 


< 47> 


24 


BGT.S 


20 


*** 


< 48> 


25 


MOVE.L 


383 


************************* 


< 49> 


26 


BEQ 


25 


*** 


< 50> 


27 


BCLR 


20 


*** 


< 51> 


28 


BSET 


64 


***** 


< 52> 


29 


LEA 


179 


************ 


< 53> 


30 


BCS.S 


59 


***** 


< 54> 


31 


CMPI.B 


40 


**** 


< 55> 


32 


CLR.B 


29 


*** 


< 56> 


33 


MOVEP 


11 


** 


< 57> 


34 


MOVEM.L 


152 


*********** 


< 58> 


35 


MOVEA.L 


37 


**** 


< 59> 


36 


BSR.S 


145 


********** 


< 60> 


37 


RTS 


176 


************ 


< 61> 


38 


LSL.B 


1 


* 


< 62> 


39 


ANDI.B 


26 


*** 


< 63> 


40 


OR.B 


4 


** 


< 64> 


41 


NOT 


11 


** 


< 65> 


42 


ADDQ 


56 


***** 


< 66> 


43 


TST 


47 


**** 


< 67> 


44 


ADDQ.L 


14 


** 


< 68> 


45 


ADD 


39 


**** 


< 69> 


46 


ROL 


5 


** 


< 70> 


47 


DBF 


23 


*** 


< 71> 


48 


ORI.B 


32 


*** 


< 72> 


49 


CMPA.L 


31 


*** 


< 73> 


50 


AND 


3 


** 


< 74> 


51 


CMP 


16 


** 


< 75> 


52 


CLR 


29 


*** 


< 76> 


53 


ANDI 


17 


** 


< 77> 


54 


BLE.S 


12 


** 


< 78> 


55 


SUBA.L 


19 


*** 


< 79> 


56 


ADD.L 


26 


*** 


< 80> 


57 


SUBQ 


74 


****** 


< 81> 


58 


ANDI.L 


18 


*** 


< 82> 


59 


ROR.L 


4 


** 


< 83> 


60 


OR.L 


3 


** 


< 84> 


61 


ORI 


7 


** 


< 85> 


62 


JMP 


23 


*** 


< 86> 


63 


BSRS4 


20 


*** 


< 87> 


64 


RTS4 


17 


** 


< 88> 


65 


MOVEA 


55 


***** 


< 89> 


66 


DISABLE 


4 


** 


< 90> 


67 


MOVEP. L 


12 


** 


< 91> 


68 


SUBQ.B 


2 


** 


< 92> 


69 


MOVE.W 


69 


****** 


< 93> 


70 


ADD.W 


26 


*** 


< 94> 


71 


ENABLE 


8 


** 


< 95> 


72 


SUBQ.L 


15 


** 


< 96> 


73 


.NOLIST 


8 


** 


< 97> 


74 


BSR4 


41 


**** 


< 98> 


75 


TST.W 


7 


** 


< 99> 


76 


TST.L 


33 


*** 


<100> 


77 


CMPI 


9 


** 
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<101> 


78 


BHI.S 


3 


** 


<102> 


79 


JSR 


4 


** 


<103> 


80 


ROL.L 


17 


** 


<104> 


81 


SWAP 


13 


** 


<105> 


82 


ADDQ.B 


7 


** 


<106> 


83 


BGE.S 


15 


** 


<107> 


84 


NOP 


11 


** 


<108> 


85 


.MACRO 


11 


** 


<109> 


86 


.ENDM 


11 


** 


<110> 


87 


.EQU 


804 


******************** 


<111> 


88 


. INCLUDE 


5 


** 


<112> 


89 


CMP.W 


7 


** 


<113> 


90 


BLT.S 


13 


** 


<114> 


91 


NEG.L 


1 


* 


<115> 


92 


ADDI.L 


1 


* 


<116> 


93 


EOR.W 


2 


** 


<117> 


94 


CMP.L 


7 


** 


<118> 


95 


ADDA 


14 


** 


<119> 


96 


SUBQ.W 


3 


** 


<120> 


97 


SUB.L 


11 


** 


<121> 


98 


ADDI.W 


2 


** 


<122> 


99 


LSR.L 


19 


*** 


<123> 


100 


ANDI.W 


2 


** 


<124> 


101 


DIVU 


4 


** 


<125> 


102 


OR 


13 


** 


<126> 


103 


ADDA.L 


29 


*** 


<127> 


104 


LSR.W 


3 


** 


<128> 


105 


EOR.L 


4 


** 


<129> 


106 


SUB 


6 


** 


<130> 


107 


SUB.B 


4 


** 


<131> 


108 


BMI.S 


24 


*** 


<132> 


109 


LSL 


6 


** 


<133> 


110 


.BYTE 


306 


******************** 


<134> 


111 


.ALIGN 


1 


* 


<135> 


112 


.WORD 


62 


***** 


<136> 


113 


.ASCII 


76 


****** 


<137> 


114 


.ORG 


6 


** 


<138> 


115 


.END 


1 


* 


<139> 


116 


.ABSOLUTE 


1 


* 


<140> 


117 


.PROC 


1 


* 


<141> 


118 


RTE 


2 


** 


<142> 


119 


RESET 


3 


** 


<143> 


120 


BSR6 


11 


** 


<144> 


121 


ROXL 


2 


** 


<145> 


122 


RTS6 


5 


** 


<146> 


123 


EOR 


6 


** 


<147> 


124 


BSRS6 


5 


** 


<148> 


125 


ROR 


2 


** 


<149> 


126 


BSR2 


9 


** 


<150> 


127 


RTS2 


1 


* 


<151> 


128 


BGT 


1 


* 


<152> 


129 


ADD.B 


1 


* 


<153> 


130 


SUBI 


1 


* 


<154> 


131 


SUB.W 


9 


** 


<155> 


132 


BHI 


1 


* 


<156> 


133 


BMI 


1 


* 


<157> 


134 


NOT.B 


8 


** 


<158> 


135 


BLS.S 


4 


** 


<159> 


136 


LSL.L 


7 


** 


<160> 


137 


SUBI.B 


3 


** 


<161> 


138 


ADDI.B 


1 


* 


<162> 


139 


BLO.S 


1 


* 


<163> 


140 


MOVEM 


7 


** 


<164> 


141 


BCHG 


1 


* 


<165> 


142 


LSR 


4 


** 
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<166> 


143 


EXT.W 


2 


** 


<167> 


144 


NEG.W 


5 


** 


<168> 


145 


ASR.W 


2 


** 


<169> 


146 


ADDQ.W 


2 


** 


<170> 


147 


AND.W 


2 


** 


<171> 


148 


AND.L 


6 


** 


<172> 


149 


NOT.L 


6 


** 


<173> 


150 


ORI.W 


1 


* 


<174> 


151 


LINK 


1 


* 


<175> 


152 


DBLE 


2 


** 


<176> 


153 


DBRA 


5 


** 


<177> 


154 


CLR.W 


6 


** 


<178> 


155 


CMPI.W 


1 


* 


<179> 


156 


SUBI.W 


1 


* 


<180> 


157 


UNLK 


1 


* 


<181> 


158 


LSL.W 


3 


** 


<182> 


159 


ROXL.B 


2 


** 


<183> 


160 


ROXL.L 


2 


** 


<184> 


161 


EOR.B 


1 


* 


<185> 


162 


CMPI.L 


2 


** 


<186> 


















<187> 










<188> 


Opcode List sorted by 


NAME: 




<189> 










<190> 


Minimum 


opcode frequency = 1 


<191> 


Maximum 


opcode frequency = 804 


<192> 










<193> 


# Opcode Frequency Histogram 


<194> 


















<195> 


1 


.ABSOLUTE 


1 


* 


<196> 


2 


.ALIGN 


1 


* 


<197> 


3 


.ASCII 


76 


****** 


<198> 


4 


.BYTE 


306 


******************** 


<199> 


5 


.ELSE 


78 


****** 


<200> 


6 


.END 


1 


* 


<201> 


7 


.ENDC 


253 


***************** 


<202> 


8 


.ENDM 


11 


** 


<203> 


9 


.EQU 


804 


************************************************** 


<204> 


10 


.IF 


253 


***************** 


<205> 


11 


. INCLUDE 


5 


** 


<206> 


12 


.LIST 


10 


** 


<207> 


13 


.MACRO 


11 


** 


<208> 


14 


.NOLIST 


8 


** 


<209> 


15 


.ORG 


6 


** 


<210> 


16 


.PAGE 


115 


******** 


<211> 


17 


.PROC 


1 


* 


<212> 


18 


.WORD 


62 


***** 


<213> 


19 


ADD 


39 


**** 


<214> 


20 


ADD.B 


1 


* 


<215> 


21 


ADD.L 


26 


*** 


<216> 


22 


ADD.W 


26 


*** 


<217> 


23 


ADDA 


14 


** 


<218> 


24 


ADDA.L 


29 


*** 


<219> 


25 


ADDI.B 


1 


* 


<220> 


26 


ADDI.L 


1 


* 


<221> 


27 


ADDI.W 


2 


** 


<222> 


28 


ADDQ 


56 


***** 


<223> 


29 


ADDQ.B 


7 


** 


<224> 


30 


ADDQ.L 


14 


** 


<225> 


31 


ADDQ.W 


2 


** 


<226> 


32 


AND 


3 


** 


<227> 


33 


AND.L 


6 


** 


<228> 


34 


AND.W 


2 


** 


<229> 


35 


ANDI 


17 


** 


<230> 


36 


ANDI.B 


26 


*** 
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<231> 


37 


ANDI.L 


18 


*** 


<232> 


38 


ANDI.W 


2 


** 


<233> 


39 


ASR.W 


2 


** 


<234> 


40 


BCC.S 


20 


*** 


<235> 


41 


BCHG 


1 


* 


<236> 


42 


BCLR 


20 


*** 


<237> 


43 


BCS 


14 


** 


<238> 


44 


BCS.S 


59 


***** 


<239> 


45 


BEQ 


25 


*** 


<240> 


46 


BEQ.S 


195 


************* 


<241> 


47 


BGE.S 


15 


** 


<242> 


48 


BGT 


1 


* 


<243> 


49 


BGT.S 


20 


*** 


<244> 


50 


BHI 


1 


* 


<245> 


51 


BHI.S 


3 


** 


<246> 


52 


BLE.S 


12 


** 


<247> 


53 


BLO.S 


1 


* 


<248> 


54 


BLS.S 


4 


** 


<249> 


55 


BLT.S 


13 


** 


<250> 


56 


BMI 


1 


* 


<251> 


57 


BMI.S 


24 


*** 


<252> 


58 


BNE 


19 


*** 


<253> 


59 


BNE.S 


210 


************** 


<254> 


60 


BPL.S 


22 


*** 


<255> 


61 


BRA 


94 


******* 


<256> 


62 


BRA.S 


251 


***************** 


<257> 


63 


BSET 


64 


***** 


<258> 


64 


BSR 


479 


******************************* 


<259> 


65 


BSR.S 


145 


********** 


<260> 


66 


BSR2 


9 


** 


<261> 


67 


BSR4 


41 


**** 


<262> 


68 


BSR6 


11 


** 


<263> 


69 


BSRS4 


20 


*** 


<264> 


70 


BSRS6 


5 


** 


<265> 


71 


BTST 


86 


******* 


<266> 


72 


CLR 


29 


*** 


<267> 


73 


CLR.B 


29 


*** 


<268> 


74 


CLR.L 


95 


******* 


<269> 


75 


CLR.W 


6 


** 


<270> 


76 


CMP 


16 


** 


<271> 


77 


CMP.B 


96 


******* 


<272> 


78 


CMP.L 


7 


** 


<273> 


79 


CMP.W 


7 


** 


<274> 


80 


CMPA.L 


31 


*** 


<275> 


81 


CMPI 


9 


** 


<276> 


82 


CMPI.B 


40 


**** 


<277> 


83 


CMPI.L 


2 


** 


<278> 


84 


CMPI.W 


1 


* 


<279> 


85 


DBF 


23 


*** 


<280> 


86 


DBLE 


2 


** 


<281> 


87 


DBRA 


5 


** 


<282> 


88 


DISABLE 


4 


** 


<283> 


89 


DIVU 


4 


** 


<284> 


90 


ENABLE 


8 


** 


<285> 


91 


EOR 


6 


** 


<286> 


92 


EOR.B 


1 


* 


<287> 


93 


EOR.L 


4 


** 


<288> 


94 


EOR.W 


2 


** 


<289> 


95 


EXT.W 


2 


** 


<290> 


96 


JMP 


23 


*** 


<291> 


97 


JSR 


4 


** 


<292> 


98 


LEA 


179 


************ 


<293> 


99 


LINK 


1 


* 


<294> 


100 


LSL 


6 


** 


<295> 


101 


LSL.B 


1 


* 
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<296> 
<297> 
<298> 
<299> 
<300> 
<301> 
<302> 
<303> 
<304> 
<305> 
<306> 
<307> 
<308> 
<309> 
<310> 
<311> 
<312> 
<313> 
<314> 
<315> 
<316> 
<317> 
<318> 
<319> 
<320> 
<321> 
<322> 
<323> 
<324> 
<325> 
<326> 
<327> 
<328> 
<329> 
<330> 
<331> 
<332> 
<333> 
<334> 
<335> 
<336> 
<337> 
<338> 
<339> 
<340> 
<341> 
<342> 
<343> 
<344> 
<345> 
<346> 
<347> 
<348> 
<349> 
<350> 
<351> 
<352> 
<353> 
<354> 
<355> 
<356> 
<357> 
<358> 
<359> 
<360> 



102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 



LSL.L 

LSL.W 

LSR 

LSR.B 

LSR.L 

LSR.W 

MOVE 

MOVE.B 

MOVE.L 

MOVE.W 

MOVEA 

MOVEA.L 

MOVEM 

MOVEM.L 

MOVEP 

MOVEP.L 

MOVEQ 

MULU 

NEG.L 

NEG.W 

NOP 

NOT 

NOT.B 

NOT.L 

OR 

OR.B 

OR.L 

ORI 

ORI.B 

ORI.W 

RESET 

ROL 

ROL.L 

ROR 

ROR.L 

ROXL 

ROXL.B 

ROXL.L 

RTE 

RTS 

RTS2 

RTS4 

RTS6 

SUB 

SUB.B 

SUB.L 

SUB.W 

SUBA.L 

SUBI 

SUBI.B 

SOBI.W 

SUBQ 

SUBQ.B 

SOBQ.L 

SUBQ.W 

SWAP 

TST 

TST.B 

TST.L 

TST.W 

UNLK 



7 


** 


3 


** 


4 


** 


5 


** 


19 


*** 


3 


** 


228 


*************** 


212 


************** 


383 


************************* 


69 


****** 


55 


***** 


37 


**** 


7 


** 


152 


*********** 


11 


** 


12 


** 


376 


************************ 


21 


*** 


1 


* 


5 


** 


11 


** 


11 


** 


8 


** 


6 


** 


13 


** 


4 


** 


3 


** 


7 


** 


32 


*** 


1 


* 


3 


** 


5 


** 


17 


** 


2 


** 


4 


** 


2 


** 


2 


** 


2 


** 


2 


** 


176 


************ 


1 


* 


17 


** 


5 


** 


6 


** 


4 


** 


11 


** 


9 


** 


19 


*** 


1 


* 


3 


** 


1 


* 


74 


****** 


2 


** 


15 


** 


3 


** 


13 


** 


47 


**** 


88 


******* 


33 


*** 


7 


** 


1 


* 



Opcode List sorted by FREQUENCY: 
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<361> 


Minimum 


opcode frequency = 1 


<362> 


Maximum 


opcode frequency = 804 


<363> 










<364> 


# Opcode 


Frequency Histogram 


<365> 


















<366> 


1 


.EQU 


804 


************************************************** 


<367> 


2 


BSR 


479 


******************************* 


<368> 


3 


MOVE.L 


383 


************************* 


<369> 


4 


MOVEQ 


376 


************************ 


<370> 


5 


.BYTE 


306 


******************** 


<371> 


6 


.ENDC 


253 


***************** 


<372> 


7 


.IF 


253 


***************** 


<373> 


8 


BRA.S 


251 


***************** 


<374> 


9 


MOVE 


228 


*************** 


<375> 


10 


MOVE.B 


212 


************** 


<376> 


11 


BNE.S 


210 


************** 


<377> 


12 


BEQ.S 


195 


************* 


<378> 


13 


LEA 


179 


************ 


<379> 


14 


RTS 


176 


************ 


<380> 


15 


MOVEM.L 


152 


*********** 


<381> 


16 


BSR.S 


145 


********** 


<382> 


17 


.PAGE 


115 


******** 


<383> 


18 


CMP.B 


96 


******* 


<384> 


19 


CLR.L 


95 


******* 


<385> 


20 


BRA 


94 


******* 


<386> 


21 


TST.B 


88 


******* 


<387> 


22 


BTST 


86 


******* 


<388> 


23 


.ELSE 


78 


****** 


<389> 


24 


.ASCII 


76 


****** 


<390> 


25 


SUBQ 


74 


****** 


<391> 


26 


MOVE.W 


69 


****** 


<392> 


27 


BSET 


64 


***** 


<393> 


28 


.WORD 


62 


***** 


<394> 


29 


BCS.S 


59 


***** 


<395> 


30 


ADDQ 


56 


***** 


<396> 


31 


MOVEA 


55 


***** 


<397> 


32 


TST 


47 


**** 


<398> 


33 


BSR4 


41 


**** 


<399> 


34 


CMPI.B 


40 


**** 


<400> 


35 


ADD 


39 


**** 


<401> 


36 


MOVEA. L 


37 


**** 


<402> 


37 


TST.L 


33 


*** 


<403> 


38 


ORI.B 


32 


*** 


<404> 


39 


CMPA.L 


31 


*** 


<405> 


40 


ADDA.L 


29 


*** 


<406> 


41 


CLR 


29 


*** 


<407> 


42 


CLR.B 


29 


*** 


<408> 


43 


ADD.L 


26 


*** 


<409> 


44 


ADD.W 


26 


*** 


<410> 


45 


ANDI.B 


26 


*** 


<411> 


46 


BEQ 


25 


*** 


<412> 


47 


BMI.S 


24 


*** 


<413> 


48 


DBF 


23 


*** 


<414> 


49 


JMP 


23 


*** 


<415> 


50 


BPL.S 


22 


*** 


<416> 


51 


MOLU 


21 


*** 


<417> 


52 


BCC.S 


20 


*** 


<418> 


53 


BCLR 


20 


*** 


<419> 


54 


BGT.S 


20 


*** 


<420> 


55 


BSRS4 


20 


*** 


<421> 


56 


BNE 


19 


*** 


<422> 


57 


LSR.L 


19 


*** 


<423> 


58 


SOBA.L 


19 


*** 


<424> 


59 


ANDI.L 


18 


*** 


<425> 


60 


ANDI 


17 


** 
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<426> 


61 


ROL.L 


17 ** 


<427> 


62 


RTS4 


17 ** 


<428> 


63 


CMP 


16 ** 


<429> 


64 


BGE.S 


15 ** 


<430> 


65 


SUBQ.L 


15 ** 


<431> 


66 


ADDA 


14 ** 


<432> 


67 


ADDQ.L 


14 ** 


<433> 


68 


BCS 


14 ** 


<434> 


69 


BLT.S 


13 ** 


<435> 


70 


OR 


13 ** 


<436> 


71 


SWAP 


13 ** 


<437> 


72 


BLE.S 


12 ** 


<438> 


73 


MOVEP.L 


12 ** 


<439> 


74 


.ENDM 


11 ** 


<440> 


75 


.MACRO 


11 ** 


<441> 


76 


BSR6 


11 ** 


<442> 


77 


MOVEP 


11 ** 


<443> 


78 


NOP 


11 ** 


<444> 


79 


NOT 


11 ** 


<445> 


80 


SUB.L 


11 ** 


<446> 


81 


.LIST 


10 ** 


<447> 


82 


BSR2 


9 ** 


<448> 


83 


CMPI 


9 ** 


<449> 


84 


SUB.W 


9 ** 


<450> 


85 


.NOLIST 


8 ** 


<451> 


86 


ENABLE 


8 ** 


<452> 


87 


NOT.B 


8 ** 


<453> 


88 


ADDQ.B 


7 ** 


<454> 


89 


CMP.L 


7 ** 


<455> 


90 


CMP.W 


7 ** 


<456> 


91 


LSL.L 


7 ** 


<457> 


92 


MOVEM 


7 ** 


<458> 


93 


ORI 


7 ** 


<459> 


94 


TST.W 


7 ** 


<460> 


95 


.ORG 


6 ** 


<461> 


96 


AND.L 


6 ** 


<462> 


97 


CLR.W 


6 ** 


<463> 


98 


EOR 


6 ** 


<464> 


99 


LSL 


6 ** 


<465> 


100 


NOT.L 


6 ** 


<466> 


101 


SUB 


6 ** 


<467> 


102 


. INCLUDE 


5 ** 


<468> 


103 


BSRS6 


5 ** 


<469> 


104 


DBRA 


5 ** 


<470> 


105 


LSR.B 


5 ** 


<471> 


106 


NEG.W 


5 ** 


<472> 


107 


ROL 


5 ** 


<473> 


108 


RTS6 


5 ** 


<474> 


109 


BLS.S 


4 ** 


<475> 


110 


DISABLE 


4 ** 


<476> 


111 


DIVU 


4 ** 


<477> 


112 


EOR.L 


4 ** 


<478> 


113 


JSR 


4 ** 


<479> 


114 


LSR 


4 ** 


<480> 


115 


OR.B 


4 ** 


<481> 


116 


ROR.L 


4 ** 


<482> 


117 


SUB.B 


4 ** 


<483> 


118 


AND 


3 ** 


<484> 


119 


BHI.S 


3 ** 


<485> 


120 


LSL.W 


3 ** 


<486> 


121 


LSR.W 


3 ** 


<487> 


122 


OR.L 


3 ** 


<488> 


123 


RESET 


3 ** 


<489> 


124 


SUBI.B 


3 ** 


<490> 


125 


SUBQ.W 


3 ** 
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<491> 


126 


ADDI.W 


2 ** 


<492> 


127 


ADDQ.W 


2 ** 


<493> 


128 


AND.W 


2 ** 


<494> 


129 


ANDI.W 


2 ** 


<495> 


130 


ASR.W 


2 ** 


<496> 


131 


CMPI.L 


2 ** 


<497> 


132 


DBLE 


2 ** 


<498> 


133 


EOR.W 


2 ** 


<499> 


134 


EXT.W 


2 ** 


<500> 


135 


ROR 


2 ** 


<501> 


136 


ROXL 


2 ** 


<502> 


137 


ROXL.B 


2 ** 


<503> 


138 


ROXL.L 


2 ** 


<504> 


139 


RTE 


2 ** 


<505> 


140 


SUBQ.B 


2 ** 


<506> 


141 


.ABSOLUTE 


1 * 


<507> 


142 


.ALIGN 


1 * 


<508> 


143 


.END 


1 * 


<509> 


144 


.PROC 


1 * 


<510> 


145 


ADD.B 


1 * 


<511> 


146 


ADDI.B 


1 * 


<512> 


147 


ADDI.L 


1 * 


<513> 


148 


BCHG 


1 * 


<514> 


149 


BGT 


1 * 


<515> 


150 


BHI 


1 * 


<516> 


151 


BLO.S 


1 * 


<517> 


152 


BMI 


1 * 


<518> 


153 


CMPI.W 


1 * 


<519> 


154 


EOR.B 


1 * 


<520> 


155 


LINK 


1 * 


<521> 


156 


LSL.B 


1 * 


<522> 


157 


NEG.L 


1 * 


<523> 


158 


ORI.W 


1 * 


<524> 


159 


RTS2 


1 * 


<525> 


160 


SUBI 


1 * 


<526> 


161 


SUBI.W 


1 * 


<527> 


162 


UNLK 


1 * 


<528> 














<529> 








<530> 


FINIS 







Boot ROM Source Line Label Metrics : 



< 


1> 


< 


2> 


< 


3> 


< 


4> 


< 


5> 


< 


6> 


< 


7> 


< 


8> 


< 


9> 


< 


10> 


< 


11> 


< 


12> 


< 


13> 


< 


14> 


< 


15> 


< 


16> 


< 


17> 


< 


18> 


< 


19> 


< 


20> 


< 


21> 



Assembly Source File Label Information Gatherer Version : 1.0 
Written by David T. Craig [9/5/94 6:06:51 PM] 
736 Edgewater, Wichita, Kansas 67230 
Copyright (c) 1993 by David T. Craig 

Current Date and Time: Monday, September 5, 1994 6:09:28 PM 



********************************************************** 

* LABEL INFO FOR FILE : RM248.E.TEXT 
********************************************************************************** 

750 DIAGS 751 NEWLISA 752 BURNIN 

753 NORESET 754 EXTERNAL 756 ROM16K 

758 NEWTWIG 760 FINLISA 761 FINKBD 

762 AAPL 763 USERINT 764 DEBUG 

765 ROM4K 766 ROM8K 767 BMENU 

769 FULLSCC 770 INVERTCK 786 ROMBASE 

787 ROMSLCT 788 IOSPACE 789 VTDLTCH 

790 DEFVID 792 DEFVID2 795 SCRNBASE 

797 SCRNBASE 801 RBYTES 803 RBYTES 
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< 22> 


805 


TOPOFFSET 


< 23> 


808 


Rl 


< 24> 


811 


R4 


< 25> 


814 


R7 


< 26> 


817 


ILLVCTR 


< 27> 


820 


NMIVCT 


< 28> 


823 


ONEMEG 


< 29> 


826 


ROW2ADR 


< 30> 


829 


SETUP 


< 31> 


832 


PATRN2 


< 32> 


835 


MEALTCH 


< 33> 


838 


PBIT 


< 34> 


841 


CSBIT 


< 35> 


844 


VTIRDIS 


< 36> 


847 


HEX128K 


< 37> 


850 


HEX8K 


< 38> 


853 


DG20N 


< 39> 


856 


TWOSEC 


< 40> 


859 


TNTHSEC 


< 41> 


865 


MSRCHSZ 


< 42> 


868 


ADRMSK 


< 43> 


878 


ORB1 


< 44> 


881 


DDRA1 


< 45> 


884 


T2CL1 


< 46> 


887 


ACR1 


< 47> 


890 


IER1 


< 48> 


895 


VIA2BASE 


< 49> 


898 


ORA2 


< 50> 


901 


DDRA2 


< 51> 


904 


T2CL2 


< 52> 


907 


PORTA2 


< 53> 


915 


PIABASE 


< 54> 


918 


INCSR 


< 55> 


924 


ACTL 


< 56> 


927 


TXBE 


< 57> 


935 


VID 


< 58> 


938 


BUSEXCP 


< 59> 


941 


ILLEXCP 


< 60> 


945 


VIA2 


< 61> 


948 


CLK 


< 62> 


951 


DISK 


< 63> 


955 


MEM 


< 64> 


959 


KBDOUT 


< 65> 


962 


I02ERR 


< 66> 


965 


WRMSTRT 


< 67> 


970 


CPUMSK 


< 68> 


973 


IOMSK 


< 69> 


977 


MMU 


< 70> 


980 


PAR 


< 71> 


983 


ADREXCP 


< 72> 


986 


TRPEXCP 


< 73> 


990 


iocops 


< 74> 


993 


RS232A 


< 75> 


996 


IOEXCP 


< 76> 


1000 


MEM 


< 77> 


1004 


MOUSOUT 


< 78> 


1007 


I03ERR 


< 79> 


1011 


WRMSTRT 


< 80> 


1016 


CPUMSK 


< 81> 


1019 


MEMMSK 


< 82> 


1022 


CONTMSK 


< 83> 


1027 


BCOTMSK 


< 84> 


1035 


EMMU 


< 85> 


1038 


ECPUINTR 


< 86> 


1041 


EMISEXCP 



806 


RLONGS 


809 


R2 


812 


R5 


815 


BUSVCTR 


818 


L10VCTR 


821 


TRPVCT0 


824 


HALFMEG 


827 


STKBASE 


830 


SETUPON 


833 


PARON 


836 


STATREG 


839 


VRBIT 


842 


INVIDBIT 


845 


VTIRENB 


848 


HEX96K 


851 


HEX2K 


854 


DG20FF 


857 


FIVESEC 


860 


KBDDLY 


866 


VSRCHSZ 


869 


PHYTOLOG 


879 


ORAL 


882 


T1LL1 


885 


T2CH1 


888 


PCR1 


891 


PORTA1 


896 


ORB2 


899 


IRA2 


902 


T1LL2 


905 


T2CH2 


909 


DSKDIAG 


916 


INDATA 


919 


OUTCSR 


925 


SCCDATA 


933 


CPUSEL 


936 


PAR 


939 


ADREXCP 


942 


TRPEXCP 


946 


IOCOPS 


949 


RS232A 


952 


IOEXCP 


956 


MPAR 


960 


MOUSOUT 


963 


I03ERR 


967 


LOOP 


971 


EXMSK 


974 


OTHRMSK 


978 


CPUSEL 


981 


CPUINTR 


984 


MISEXCP 


988 


VIAL 


991 


KBDCOPS 


994 


RS232B 


997 


IOCOPS2 


1001 


MPAR 


1005 


IOIERR 


1009 


ALTBOOT 


1013 


LOOP 


1017 


EXMSK 


1020 


OTHRMSK 


1025 


SCANMSK 


1028 


CPIOMSK 


1036 


EVID 


1039 


EBUSEXCP 


1042 


EILLEXCP 



807 


R0 


810 


R3 


813 


R6 


816 


ADRVCTR 


819 


L11VCTR 


822 


MAXADR 


825 


QTRMEG 


828 


CALLBASE 


831 


PATRN 


834 


PAROFF 


837 


SFER 


840 


VIDBIT 


843 


RETRYCNT 


846 


HEX512K 


849 


HEX32K 


852 


LOMEM 


855 


ONESEC 


858 


QTRSEC 


861 


HALFSEC 


867 


VMSK 


877 


VIA1BASE 


880 


DDRB1 


883 


T1LH1 


886 


SHR1 


889 


IFR1 


893 


FDIR 


897 


IRB2 


900 


DDRB2 


903 


T1LH2 


906 


PCR2 


911 


CSTRB 


917 


OUTDATA 


923 


SCCBCTL 


926 


RXBF 


934 


MMU 


937 


CPUINTR 


940 


MISEXCP 


944 


VIA1 


947 


KBDCOPS 


950 


RS232B 


953 


IOCOPS2 


957 


IOKBD 


961 


IOIERR 


964 


ALTBOOT 


969 


ERRMSK 


972 


MEMMSK 


975 


CONTMSK 


979 


VID 


982 


BUSEXCP 


985 


ILLEXCP 


989 


VIA2 


992 


CLK 


995 


DISK 


998 


IOKBD 


1003 


KBDOUT 


1006 


I02ERR 


1010 


BTMENU 


1015 


ERRMSK 


1018 


IOMSK 


1021 


IOSMSK 


1026 


ALTBMSK 


1034 


ECPUSEL 


1037 


ECPAR 


1040 


EADREXCP 


1043 


ETRPEXCP 
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< 87> 


1045 


EVIA1 


1046 


EVIA2 


1047 


EIOCOP 


< 88> 


1048 


EKBDCOP 


1049 


ECLK 


1050 


ERS232A 


< 89> 


1051 


ERS232B 


1052 


EDISK 


1053 


EIOEXCP 


< 90> 


1054 


EIOCOP2 


1056 


EMEM 


1057 


EPAR 


< 91> 


1058 


EIOKBD 


1062 


SERR1 


1063 


SERR2 


< 92> 


1066 


EMMU 


1067 


ECPUSEL 


1068 


EVID 


< 93> 


1069 


ECPAR 


1070 


ECPUINTR 


1071 


EBUSEXCP 


< 94> 


1072 


EADREXCP 


1073 


EMISEXCP 


1074 


EILLEXCP 


< 95> 


1075 


ETRPEXCP 


1077 


EVIA1 


1078 


EVIA2 


< 96> 


1079 


EIOCOP 


1080 


EKBDCOP 


1081 


ECLK 


< 97> 


1082 


ERS232A 


1083 


ERS232B 


1084 


EDISK 


< 98> 


1085 


EIOEXCP 


1086 


EIOCOP2 


1087 


EIOKBD 


< 99> 


1089 


EMEM 


1090 


EPAR 


1092 


EBOOT 


<100> 


1096 


SERR1 


1097 


SERR2 


1103 


NORSTRT 


<101> 


1104 


NOCONT 


1105 


MSBUTN 


1106 


CMDFLG 


<102> 


1107 


MOUSE 


1108 


CHKCMD 


1110 


BTN 


<103> 


1111 


MENU 


1115 


MMUSADRL 


1116 


MMUSADRB 


<104> 


1117 


MMUEADRL 


1118 


MMUEADRB 


1119 


ADR128K 


<105> 


1120 


PAG128K 


1121 


MEMLMT 


1122 


NMEMLMT 


<106> 


1125 


IOLMT 


1126 


NIOLMT 


1127 


IOLMT2 


<107> 


1128 


RSTLMT 


1130 


IOLMT 


1131 


NIOLMT 


<108> 


1133 


SPLMT 


1134 


NSPLMT 


1135 


INVPAG 


<109> 


1136 


MMU0B 


1137 


MMU0L 


1138 


MMU126B 


<110> 


1139 


MMU126L 


1140 


MMU127B 


1141 


MMU127L 


<111> 


1142 


SEGION 


1143 


SEGIOFF 


1144 


SEG20N 


<112> 


1145 


SEG20FF 


1149 


Dlycnst 


1150 


TKiller 


<113> 


1151 


BytesPerRead 


1152 


Words PerRead 


1153 


HalfSize 


<114> 


1154 


ScrachSize 


1156 


Snum 


1158 


dLcnt 


<115> 


1159 


dSavArry 


1160 


dScrach 


1162 


dStack 


<116> 


1166 


MOUSDWN 


1167 


CMDKEY 


1168 


ALPHKEY 


<117> 


1171 


AKEY 


1172 


MKEY 


1173 


FKEY 


<118> 


1174 


GKEY 


1175 


HKEY 


1176 


PKEY 


<119> 


1177 


KEY1 


1178 


KEY2 


1179 


KEY3 


<120> 


1181 


KEY1 


1182 


KEY2 


1183 


KEY3 


<121> 


1184 


AKEY 


1185 


BKEY 


1186 


CKEY 


<122> 


1190 


ENTRKEY 


1191 


SHFTKEY 


1192 


PKEY 


<123> 


1195 


RSTCODE 


1196 


KUNPLG 


1197 


ICERR 


<124> 


1198 


KCERR 


1199 


MSUNPLG 


1200 


MSPLG 


<125> 


1210 


TWIG1 


1211 


TWIG2 


1212 


PROFILE 


<126> 


1213 


IOIPORTI 


1214 


I02PORT1 


1215 


I03PORT1 


<127> 


1216 


PC 


1217 


MON 


1218 


APPLE 


<128> 


1220 


TWIG1 


1221 


TWIG2 


1222 


PROFILE 


<129> 


1223 


IOIPORTI 


1224 


I01PORT2 


1225 


I02PORT1 


<130> 


1226 


I02PORT2 


1227 


I03PORT1 


1228 


I03PORT2 


<131> 


1229 


PC 


1230 


MON 


1235 


PC 


<132> 


1236 


APPLE 


1242 


IOS1 


1243 


IOS2 


<133> 


1244 


IOS3 


1245 


TWG1 


1246 


TWG2 


<134> 


1247 


PRO 


1249 


TWG1 


1250 


TWG2 


<135> 


1251 


PRO 


1252 


IOS1 


1253 


IOS2 


<136> 


1254 


IOS3 


1261 


TWIGGY 


1262 


DISKMEM 


<137> 


1263 


CMD 


1264 


DRV 


1265 


SIDE 


<138> 


1266 


SCTR 


1267 


TRAK 


1270 


STAT 


<139> 


1271 


CHKCNT 


1272 


HDR 


1273 


ROMV 


<140> 


1274 


INTSTAT 


1275 


DSKSTAT 


1276 


DISKROM 


<141> 


1277 


HDRSTRT 


1278 


DSKBFR 


1280 


SEEK 


<142> 


1281 


READS 


1282 


CLAMP 


1283 


STATS 


<143> 


1284 


UNCLAMP 


1285 


FORMAT 


1286 


VERIFY 


<144> 


1289 


SPEED 


1290 


CNFRM 


1291 


STAT 


<145> 


1292 


INTLV 


1293 


TYPE 


1294 


STST 


<146> 


1295 


ROMV 


1296 


RTRYCNT 


1297 


INTSTAT 


<147> 


1298 


CHKCNT 


1299 


CHKCNT2 


1300 


DSKBUFF 


<148> 


1301 


DSKDATA 


1302 


DISKROM 


1303 


SLOTMR 


<149> 


1304 


FASTMR 


1306 


READS 


1307 


WRT 


<150> 


1308 


UNCLAMP 


1309 


FMT 


1310 


VFY 


<151> 


1311 


CLAMP 


1312 


OK 


1314 


SEEK 
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<152> 


1317 


EXRW 


<153> 


1320 


DSABLINT 


<154> 


1324 


DRV1 


<155> 


1327 


TOPSIDE 


<156> 


1332 


SECLEN 


<157> 


1337 


HDRLEN 


<158> 


1340 


TWGDATA 


<159> 


1347 


STATSTRT 


<160> 


1350 


STATWRDS 


<161> 


1354 


MEMCODE 


<162> 


1357 


PMCHKSM 


<163> 


1364 


WRPERR 


<164> 


1367 


RDWRERR 


<165> 


1373 


DRVERR 


<166> 


1376 


CLMPERR 


<167> 


1379 


BADTHDR 


<168> 


1383 


FDIRTIME 


<169> 


1386 


DSKTMOUT 


<170> 


1393 


DSK1IN 


<171> 


1396 


DSK2IN 


<172> 


1402 


DSKIN 


<173> 


1413 


PROFLE 


<174> 


1416 


CMDBUFR 


<175> 


1419 


STAT2 


<176> 


1422 


STATMSK 


<177> 


1425 


BLKH 


<178> 


1428 


RETRY 


<179> 


1431 


FILEID 


<180> 


1434 


HDRSIZE 


<181> 


1437 


RSTRTIME 


<182> 


1440 


RSPTIME 


<183> 


1447 


TMOUT 


<184> 


1450 


BADRSP 


<185> 


1454 


NODSK 


<186> 


1457 


STATNZ 


<187> 


1467 


SLOT1L 


<188> 


1470 


STBIT 


<189> 


1473 


STENTRY 


<190> 


1476 


APPLENET 


<191> 


1479 


TSTQUAL 


<192> 


1486 


BADSM 


<193> 


1490 


INV 


<194> 


1502 


INITFLG 


<195> 


1505 


LCNTLO 


<196> 


1508 


DSKCNTH 


<197> 


1511 


ALRMSAV 


<198> 


1514 


MINCNT 


<199> 


1517 


SET2 


<200> 


1520 


ONEHOUR 


<201> 


1523 


DLYTIME 


<202> 


1536 


BS 


<203> 


1542 


KEY6 


<204> 


1545 


KEY9 


<205> 


1548 


CmdUp 


<206> 


1554 


KBDEND 


<207> 


1560 


CRTROW 


<208> 


1567 


FIRSTROW 


<209> 


1570 


LASTCOL 


<210> 


1577 


MaxY 


<211> 


1580 


DESKLMT 


<212> 


1584 


WCOL 


<213> 


1587 


WMIDROW 


<214> 


1590 


W34COL 


<215> 


1594 


ALBOXCOL 


<216> 


1597 


ALRTSTRT 



1318 


CLRSTAT 


1321 


SLEEP 


1325 


DRV2 


1328 


BOTSIDE 


1333 


TWGHDR 


1338 


SECLEN 


1341 


LASTBLK 


1348 


STATSAV 


1352 


PMSTRT 


1355 


MOUSEON 


1358 


PMWRDS 


1365 


DRVERR 


1369 


CMDTIME 


1374 


NODISK 


1377 


RDWRERR 


1380 


TIMOUT 


1384 


VFYTIME 


1387 


INSRTTIM 


1394 


BUTN1 


1397 


BUTN2 


1403 


BUTN 


1414 


OCD 


1417 


STATBFR 


1420 


STAT3 


1423 


PCMDSZ 


1426 


BLKM 


1429 


THRESH 


1432 


BOOTPAT 


1435 


BLKSIZE 


1438 


RDTIME 


1441 


RCNT 


1448 


NODSK 


1451 


STATNZ 


1455 


DSKBSY 


1458 


BADHDR 


1468 


SLOT2L 


1471 


ICBIT 


1474 


BTENTRY 


1477 


APPLQUAL 


1484 


NOC 


1487 


BADST 


1491 


BADSM 


1503 


HOURSAV 


1506 


TIMFLG 


1509 


DSKCNTL 


1512 


CYCLCNT 


1515 


ENDPM 


1518 


HOUR 


1521 


ONEMIN 


1534 


QUESTN 


1540 


KEY4 


1543 


KEY7 


1546 


SKEY 


1549 


MousUp 


1557 


CRTROW 


1561 


CRTCOL 


1568 


FIRSTCOL 


1575 


ROWBYTES 


1578 


MENULINE 


1581 


DESKPATRN 


1585 


WINDWIDTH 


1588 


WMIDCOL 


1591 


WINDSTRT 


1595 


ALRTWIDTH 


1598 


MIDALROW 



1319 


ENBLINT 


1322 


DIE 


1326 


TRK1 


1331 


HDRLEN 


1334 


TWGDATA 


1339 


TWGHDR 


1342 


DSKSIZE 


1349 


STATSUM 


1353 


DVCCODE 


1356 


EXMEM 


1363 


TIMOUT 


1366 


FMTERR 


1370 


FDIRTIME 


1375 


WRPERR 


1378 


UCLMPERR 


1382 


CMDTIME 


1385 


EJCTTIME 


1388 


FMTTIME 


1395 


RWF1 


1398 


RWF2 


1405 


DRVTYPE 


1415 


BSY 


1418 


STAT1 


1421 


STAT4 


1424 


PCMD 


1427 


BLKL 


1430 


HDRBUFR 


1433 


DATABFR 


1436 


STRTIME 


1439 


BSYTIME 


1442 


TCNT 


1449 


DSKBSY 


1452 


BADHDR 


1456 


BADRSP 


1459 


TMOUT 


1469 


SLOT3L 


1472 


TSTBIT 


1475 


ICONPTR 


1478 


TSTCRD 


1485 


INV 


1489 


NOC 


1492 


BADST 


1504 


LCNTHI 


1507 


MINSAV 


1510 


CLKSAVE 


1513 


CYCLVAL 


1516 


SET1 


1519 


MINUTE 


1522 


TENSECS 


1535 


RET 


1541 


KEY5 


1544 


KEY8 


1547 


CmdDwn 


1553 


KBDBFR 


1558 


CRTCOL 


1564 


MAXTEST 


1569 


LASTROW 


1576 


MaxX 


1579 


DESKLINE 


1583 


WROW 


1586 


WINDHIGH 


1589 


W14COL 


1593 


ALBOXROW 


1596 


ALRTHIGH 


1599 


MIDALCOL 
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<217> 


1601 


BTNWIDTH 


1602 


BTNHIGH 


1603 


BTNSPC 


<218> 


1604 


BTNMSPC 


1605 


BTNROW 


1606 


BTNCOL 


<219> 


1607 


BTN1STRT 


1608 


BTN2STRT 


1609 


BTN3STRT 


<220> 


1610 


BTN1MSG 


1611 


BTN2MSG 


1612 


BTN3MSG 


<221> 


1614 


MENUSTRT 


1615 


MENULEN 


1616 


MENUSPC 


<222> 


1617 


MENUWIDTH 


1618 


MENULOC 


1619 


MENU1MSG 


<223> 


1620 


MBARLEN 


1622 


MITEMS 


1623 


MENUEND 


<224> 


1626 


BMENUWIDTH 


1627 


BMENULEN 


1628 


BMENUSPC 


<225> 


1631 


DBOXWIDTH 


1632 


DBOXHIGH 


1633 


DBOXTOP 


<226> 


1634 


DBOXLEFT 


1635 


DBOXSTRT 


1636 


DBOXROW 


<227> 


1637 


DBOXCOL 


1639 


SVCTOP 


1641 


SVCLEFT 


<228> 


1642 


SVCSTRT 


1643 


SVCWIDTH 


1644 


SVCHIGH 


<229> 


1646 


FIRSTROW 


1647 


FIRSTCOL 


1648 


ROWSLEFT 


<230> 


1649 


CHARROWS 


1650 


LASTROW 


1651 


LASTCOL 


<231> 


1652 


ROWLINES 


1653 


ROWLEN 


1654 


NROWS 


<232> 


1655 


CHRHIGH 


1656 


CHRWIDTH 


1657 


CHRSPC 


<233> 


1659 


ICONWIDTH 


1660 


ICONHIGH 


1662 


TSTROW 


<234> 


1663 


TSTCOL 


1664 


TSTHSTRT 


1665 


TSTWWIDTH 


<235> 


1666 


TSTWHIGH 


1667 


TSTMROW 


1668 


TSTMCOL 


<236> 


1669 


MIDTSTROW 


1670 


CHKROW 


1671 


TSTIROW 


<237> 


1672 


TSTICOL 


1673 


TSTISPC 


1675 


CPUSTRT 


<238> 


1676 


MEMSTRT 


1677 


IOSTRT 


1678 


XCRDSTRT 


<239> 


1680 


ERRROW 


1681 


ERRCOL 


1682 


ERRSTRT 


<240> 


1683 


ALRTROW 


1684 


ALRTCOL 


1685 


CODEROW 


<241> 


1686 


CODECOL 


1687 


MSGROW 


1688 


MSGCOL 


<242> 


1689 


MEMROW 


1690 


MEMCOL 


1691 


DISKROW 


<243> 


1692 


DISKCOL 


1693 


SLOTROW 


1694 


SLOTCOL 


<244> 


1695 


DRVROW 


1696 


DRVCOL 


1697 


INSRTROW 


<245> 


1698 


INSRTCOL 


1701 


DEFROW 


1702 


DEFCOL 


<246> 


1703 


DEFSTRT 


1704 


ALTCOL 


1705 


COL1STRT 


<247> 


1706 


COL2STRT 


1707 


COL2MID 


1708 


COL3STRT 


<248> 


1709 


ICONCSPC 


1710 


ICONMSPC 


1711 


ICONRSPC 


<249> 


1713 


ALTKYADDR 


1715 


PCWIDTH 


1716 


PCHIGH 


<250> 


1717 


PCSTRT 


1718 


PCROW 


1719 


PCCOL 


<251> 


1721 


ROMIDROW 


1722 


ROMIDCOL 


1725 


GLOBALS 


<252> 


1727 


GLOBALS 


1730 


ClockBytes 


1731 


MousX 


<253> 


1732 


MOUSY 


1733 


MdusDx 


1734 


MousDy 


<254> 


1735 


MousScaling 


1736 


MousThresh 


1738 


CrsrHotx 


<255> 


1739 


CrsrHoty 


1740 


CrsrHeight 


1741 


CrsrX 


<256> 


1742 


CrsrY 


1743 


CrsrTracking 


1744 


CrsrBusy 


<257> 


1745 


CrsrVisible 


1746 


CrsrHidden 


1747 


CrsrObscured 


<258> 


1749 


SavedData 


1750 


SavedX 


1751 


SavedY 


<259> 


1752 


SavedRows 


1753 


SavedAddr 


1755 


LwrRight 


<260> 


1756 


MsgLen 


1759 


IconBase 


1760 


IconAddr 


<261> 


1762 


MenuBase 


1763 


IconAddr 


1766 


IconCnt 


<262> 


1768 


DRIVE 


1769 


BLKNUM 


1770 


CONTXT 


<263> 


1772 


RectCnt 


1773 


RectTable 


1781 


STATUS 


<264> 


1782 


SIZRSLT 


1783 


MEMRSLT 


1784 


BOOTMEM 


<265> 


1785 


PEADDR 


1786 


ADRLTCH 


1787 


D7SAV 


<266> 


1788 


MMURSLT 


1789 


KEYID 


1790 


BOOTDVCE 


<267> 


1791 


BOOTDATA 


1792 


CLKDATA 


1793 


DATARGS 


<268> 


1794 


ADRREGS 


1795 


A6SAV 


1796 


USPSAV 


<269> 


1798 


SERNUM 


1799 


KBDQPTR 


1801 


XPCTADDR 


<270> 


1802 


XPCTDATA 


1803 


ACTADDR 


1804 


ACTDATA 


<271> 


1805 


PEADR2 


1806 


PCHPROW 


1807 


PCHIP 


<272> 


1809 


EXCFC 


1810 


EXCADR 


1811 


EXCIR 


<273> 


1812 


EXCSR 


1813 


EXCPC 


1814 


EXCTYPE 


<274> 


1815 


SUPSTK 


1816 


MAXMEM 


1817 


IOl ID 


<275> 


1818 


102 ID 


1819 


I03ID 


1820 


IOISTAT 


<276> 


1821 


I02STAT 


1822 


I03STAT 


1823 


IOROM 


<277> 


1824 


STATFLGS 


1825 


MINMEM 


1826 


TOTLMEM 


<278> 


1827 


SCCRSLT 


1828 


MEMSLOT 


1829 


DSKRSLT 


<279> 


1830 


SYSTYPE 


1831 


KBDQ 


1832 


QEND 


<280> 


******************************************************** 


<281> 


* FILE 


LABEL STATISTICS 
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<282> 


************************************************************ 


<283> 


File Lines 


= 


1838 








<284> 


Label Count 


= 


801 








<285> 


Local Label Count 


= 




6 








<286> Min 


Label Length = 




2 R0 






<287> 


Max 


Label Length = 




12 BytesPerRead 






<288> 


Avg 


Label Length = 




6 








<289> 


Std Dev Label Length = 


1 


61 








<290> 


















<291> 


Label Length Frequency Counts: 








<292> 


No. Labels with 


Length 


2 




13 






<293> 


No. Labels with 


Length 


3 




29 






<294> 


No. Labels with 


Length 


4 




108 






<295> 


No. Labels with 


Length 


5 




113 






<296> 


No. Labels with 


Length 


6 




174 






<297> 


No. Labels with 


Length 


7 




231 






<298> 


No. Labels with 


Length 


8 




107 






<299> 


No. Labels with 


Length 


9 




14 






<300> 


No. Labels with 


Length 


10 




6 






<301> 


No. Labels with 


Length 


11 




2 






<302> 


No. Labels with 


Length 


12 




4 






<303> 


********************************************************************************** 


<304> 


* END OF FILE: RM248.E.TEXT 










<305> 


********************************************************************************** 


<306> 


















<307> 


















<308> 


********************************************************************************** 


<309> 


* LABEL INFO FOR FILE : RM24J 


1. K. TEXT 






<310> 


********************************************************************************** 


<311> 


13 


BASE 






22 


BUSVCT 


24 


ADRVCT 


<312> 


26 


ILLVCT 






28 


DIV0VCT 


30 


CHKVCT 


<313> 


32 


TRAPVCT 






34 


PRIVCT 


36 


TRCVCT 


<314> 


38 


L10VCT 






40 


L11VCT 


48 


EXCPERR 


<315> 


58 


SAVEREGS 






60 


SAVEREG2 


70 


SVCMSG 


<316> 


77 


SPURVCT 






79 


LVL1VCT 


81 


LVL2VCT 


<317> 


83 


LVL3VCT 






85 


LVL4VCT 


87 


LVL5VCT 


<318> 


89 


LVL6VCT 






91 


LVL7VCT 


104 


JMPTBL 


<319> 


155 


SPIN 






167 


NMIEXCP 


181 


BEGIN 


<320> 


216 


BEGIN2 






232 


BEGIN3 


246 


ROMTST 


<321> 


252 


DOSUM 






276 


MMUTST 


295 


MMUERR 


<322> 


302 


MMULP 






314 


TSTLOOP 


315 


REGTST 


<323> 


331 


MMUINIT 






344 


MMURW 


348 


RWCHK1 


<324> 


351 


RWCHK2 






353 


RWCHK3 


359 


CHKBASE 


<325> 


374 


MMUACHK 






379 


ACHK1 


384 


MMUSET 


<326> 


391 


ACHK2 






403 


MADRERR 


416 


CHKRW 


<327> 


425 


RWERR 






436 


SETMMU 


445 


LOADORG 


<328> 


465 


LOADLMT 






494 


MMUTST2 


548 


MMUERR2 


<329> 


549 


MMUERR3 






554 


MMULPCHK 


565 


CONCHK 


<330> 


579 


CONOR 






616 


INITMMU 


623 


RWLOOP 


<331> 


629 


CHKBASE 






645 


START 


659 


MEMSIZ 


<332> 


670 


CHKLO 






706 


SAVELO 


718 


TSTHI 


<333> 


733 


CHKHI 






744 


SAVEHI 


748 


WRAPXIT 


<334> 


750 


SIZXIT 






760 


CHKMEM 


803 


LOTONE 


<335> 


827 


RSTMMU 






846 


REMAP 


856 


MAPINV 


<336> 


882 


WRTMMD 






907 


READMMO 


947 


MEMTST1 


<337> 


967 


TONEDLY 






980 


CLRMEM 


988 


INITMEM 


<338> 


1013 


INITVCT 






1018 


SETVCTRS 


1047 


SETBUSVCT 


<339> 


1056 


MISC 






1061 


IERR 


1066 


NMI 


<340> 


1080 


NOTPE 






1083 


TRPERR 


1088 


BERR 


<341> 


1093 


AERR 






1097 


EXCP0 


1102 


EXCP1 


<342> 


1114 


SCCSET 






1125 


VIA2TST 


1127 


VIA2CHK 


<343> 


1156 


VIA2VCT 






1169 


VIATST 


1182 


VIARW 


<344> 


1203 


VIAFAIL 






1205 


VIARWEND 


1213 


CONSET 


<345> 


1216 


CONOFF 






1218 


CONSET2 


1239 


SCRNTST 


<346> 


1269 


SCRNERR 






1271 


SCRNOK 


1286 


SCRNSAV 
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<347> 


1305 


SETVLTCH 




1322 


INVTST 


1343 


VIA1TST 


<348> 


1356 


VIA1CHK 


1375 


DSPCPURM 


1388 


COPSENBL 


<349> 


1401 


COPSBAD 


1410 


COPSVCT 


1411 


IOVCT 


<350> 


1418 


CPSINIT 


1426 


TURNON 


1452 


COPSCMD 


<351> 


1539 


RSTSCAN 


1556 


RST0 


1563 


GET0 


<352> 


1569 


RST2 


1579 


RST1 


1604 


GETJMP 


<353> 


1609 


RSTXIT 


1622 


MSCHK 


1638 


SCANERR 


<354> 


1641 


IOCERR 


1651 


SCANXIT 


1673 


GETDATA 


<355> 


1685 


GETIT 


1700 


RSTKBD 


1717 


CLRRST 


<356> 


1727 


DELAY_1 


1730 


DELAY5 


1733 


KBDDELAY 


<357> 


1737 


DELAY 


1746 


BEEP 


1754 


CLICK 


<358> 


1767 


TONE 


1774 


TONE2 


1800 


SILENCE 


<359> 


1810 


NOIO 


1821 


NOI02 


1828 


NOI03 


<360> 


********************************************************* 


<361> 


* FILE 


LABEL STATISTICS 










<362> 


********************************************************************************** 


<363> 


File Lines = 


1833 








<364> 


Label Count = 


147 








<365> 


Local Label Count = 


50 








<366> 


Min 


Label Length = 


3 NMI 






<367> Max 


Label Length = 


9 SETBUSVCT 






<368> 


Avg 


Label Length = 


6 








<369> 


Std Dev Label Length = 


1.11 








<370> 














<371> 


Label Length Frequency Counts: 








<372> 


No. Labels with Length 


3 




1 






<373> 


No. Labels with Length 


4 




13 






<374> 


No. Labels with Length 


5 




26 






<375> 


No. Labels with Length 


6 




47 






<376> 


No. Labels with Length 


7 




50 






<377> 


No. Labels with Length 


8 




9 






<378> 


No. Labels with Length 


9 




1 






<379> 


********************************************************************************** 


<380> 


* END OF FILE: RM248.K.TEXT 








<381> 


********************************************************************************** 


<382> 














<383> 














<384> 


********************************************************************************** 


<385> 


* LABEL INFO FOR FILE : RM248.S.TEXT 






<386> 


********************************************************************************** 


<387> 


15 


VIDTST 


23 


VIDCHK 


47 


VIDERR 


<388> 


54 


VIDXIT 


95 


RDSERN 


122 


GetBitsl : 


<389> 


152 


GetBits2 : 


179 


GetBytes : 


213 


Checksum: 


<390> 


250 


Exit: 


263 


FindSync : 


288 


GetNibbles : 


<391> 


306 


Tag 


324 


PARTST 


372 


PARERR 


<392> 


381 


PARXIT 


388 


WWPERR 


395 


VIA1VCT 


<393> 


414 


MEMTST2 


423 


MEMLOOP 


457 


TSTDONE 


<394> 


472 


RONTESTS 


476 


BASICTST 


478 


CALL3 


<395> 


493 


BASICTST 


495 


CALL3 


502 


TSTDONE 


<396> 


517 


TSTINIT 


530 


SAVRSLT 


565 


RAMTEST 


<397> 


571 


RAMRW 


576 


RAMCHK2 


584 


RAMNXT 


<398> 


592 


ADRTST 


598 


ADRCHK 


602 


ADRCLR 


<399> 


614 


RDERR 


633 


PRTYINT1 


671 


TSTSTAT 


<400> 


685 


PRTYINT2 


718 


PRIXIT 


723 


PCERR 


<401> 


740 


GETPADDR 


752 


IOTST 


792 


SCCTEST 


<402> 


799 


VECTLOOP 


822 


b96data: 


831 


b961th 


<403> 


833 


SETSCC 


840 


LPTEST 


842 


SCCLOOP 


<404> 


848 


SCCOUT 


851 


SCCLOOP2 


857 


SCCIN 


<405> 


865 


SCCLXIT 


867 


SCCLERR 


871 


SCCEXIT 


<406> 


903 


WRITESCC 


914 


INITBDATA 


917 


INITBLTH 


<407> 


919 


INITB2 


920 


INITB2L 


922 


RSTSCC 


<408> 


939 


SCCVCT 


959 


DSKTST 


1018 


INTERR 


<409> 


1023 


DSKXIT 


1033 


DSKVCT 


1053 


SETTYPE 


<410> 


1074 


COPSCHK 


1089 


SCANCPS 


1095 


KEYSCAN 


<411> 


1165 


XLATE 




1178 


KEYTBL 


1186 


TBLEND 
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<412> 


1193 


CLKTST 






1206 


READCLK 


1212 


RDCLK0 


<413> 


1224 


RDCLK1 






1233 


CLKERR 


1246 


CONFIG 


<414> 


1252 


CONFIG2 






1275 


RDSLOTS 


1291 


NOCRD1 


<415> 


1293 


SLOT2 






1302 


NOCRD2 


1304 


SLOT3 


<416> 


1313 


NOCRD3 






1317 


CFGEXIT 


1328 


CHKID 


<417> 


1348 


TSTCHK 






1354 


TST2 


1434 


EXCHK 


<418> 


1486 


IOCHK 






1576 


ERRDISP 


1589 


KBDCHK 


<419> 


1610 


MEMCHK 






1635 


CHKMADR 


1644 


SCNRSLTS 


<420> 


1671 


MERRCHK 






1681 


MEMERR 


1697 


IOSCHK 


<421> 


1731 


TSTXIT 






1739 


TSTXIT2 


1768 


GOTOMON 


<422> 


1777 


PMVCT 






1801 


OTHER 


1844 


DSPCODE 


<423> 


1867 


DSPDEC 






1869 


GETDIG 


1901 


DSPCXIT 


<424> 


1908 


OUTCHR 






1926 


OUTCH 


1944 


OUTNIB 


<425> 


1951 


ALPHA 






1954 


DSPCH 


1964 


NOTIFY 


<426> 


1977 


HIPTCH 






1984 


LOPTCH 


1985 


SETDUR 


<427> 


1997 


SYSOK 






2010 


NOTOK 


2022 


DSPROMS 


<428> 


******************************************************* 


<429> 


* FILE 


LABEL STATISTICS 












<430> 


********************************************************************************** 


<431> 


File Lines 


= 


2032 








<432> 


Label Count 


= 


123 








<433> 


Local Label Count 


= 


100 








<434> Min 


Label Length = 




3 Tag 






<435> 


Max 


Label Length = 




11 GetNibbles: 






<436> 


Avg 


Label Length = 




6 








<437> 


Std Dev Label Length = 


1 


18 








<438> 


















<439> 


Label Length Frequency Counts: 








<440> 


No. Labels with 


Length 


3 




1 






<441> 


No. Labels with 


Length 


4 




1 






<442> 


No. Labels with 


Length 


5 




21 






<443> 


No. Labels with 


Length 


6 




49 






<444> 


No. Labels with 


Length 


7 




32 






<445> 


No. Labels with 


Length 


8 




12 






<446> 


No. Labels with 


Length 


9 




6 






<447> 


No. Labels with 


Length 


10 











<448> 


No. Labels with 


Length 


11 




1 






<449> 


********************************************************************************** 


<450> 


* END OF FILE: RM248.S.TEXT 










<451> 


********************************************************************************** 


<452> 


















<453> 


















<454> 


********************************************************************************** 


<455> 


* LABEL INFO FOR FILE : RM24J 


1. B. TEXT 






<456> 


********************************************************************************** 


<457> 


7 


DOBOOT 






9 


BOOTCHK 


80 


DVCECHK 


<458> 


173 


PMEXIT 






185 


PMERR 


193 


LSTCHK 


<459> 


214 


CHKPM 






227 


SAV2PM 


256 


WRTSUM 


<460> 


278 


VFYCHKSM 






281 


CKLOOP 


293 


CKXIT 


<461> 


300 


EXPAND 






321 


EXPAND 


345 


SEARCH 


<462> 


364 


BOOTMENU 






426 


ICONCHK 


464 


SCNSLTS 


<463> 


473 


CHKS2 






480 


CHKS3 


491 


WT4BCOT 


<464> 


511 


CHKPROFILE 






562 


DSPMNTRY 


585 


ICONMENU 


<465> 


668 


CHKSLOT 






686 


CHKICONS 


706 


CHKSXIT 


<466> 


719 


RDSLT 






749 


TWGBOOT 


784 


CLRINT 


<467> 


792 


DOREAD 






807 


RDRETRY 


824 


RDSCTR1 


<468> 


841 


STRTBOOT 






854 


DSKTIMERR 


857 


DSKCHK 


<469> 


878 


DSKBAD 






885 


DSKOUT 


887 


DSKDIS 


<470> 


889 


DSKERR 






922 


TBOOTERR 


933 


DSKERR2 


<471> 


935 


DSKERR3 






938 


SAVEXCP 


944 


BTERR 


<472> 


963 


DSABLDSK 






981 


CHKDRIVE 


1020 


TWGRD 


<473> 


1023 


TWGREAD 






1050 


XFRHDR 


1057 


XFRDATA 


<474> 


1065 


XFRHDR 






1074 


XFRDATA 


1090 


TWGOUT 


<475> 


1092 


THGERR 






1096 


TWGOK 


1099 


TWGRXIT 


<476> 


1112 


CMDCHK 






1135 


CHKFIN 


1156 


EJCTDSK 
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<477> 
<478> 
<479> 
<480> 
<481> 
<482> 
<483> 
<484> 
<485> 
<486> 
<487> 
<488> 
<489> 
<490> 
<491> 
<492> 
<493> 
<494> 
<495> 
<496> 
<497> 
<498> 
<499> 
<500> 
<501> 
<502> 
<503> 
<504> 
<505> 
<506> 
<507> 
<508> 
<509> 
<510> 
<511> 
<512> 
<513> 
<514> 
<515> 
<516> 
<517> 
<518> 
<519> 
<520> 
<521> 
<522> 
<523> 
<524> 
<525> 
<526> 
<527> 
<528> 
<529> 
<530> 
<531> 
<532> 
<533> 
<534> 
<535> 
<536> 
<537> 
<538> 
<539> 
<540> 
<541> 



1174 CLRFDIR 
1223 WAITALRT 
1272 PROBOOT 
1337 BOOTFAIL 
1350 HDERR3 
1395 TRYRD 
1439 PROXIT 
1480 READIT 
1522 STRTXIT 
1550 COPY6LP 
1571 FINDD2 
1587 SNDR1 
1614 WFBSY 
1644 WFNBSY 
1652 WFNBSY1 
1717 STATOK 
1732 BADBRD 
1789 LOADPGM 
1825 RDIOXIT 
1846 CLRPM 
1939 TSTERR 
1965 CNTINC 
2005 SHUTDOWN 
2049 SETERR1 
2068 CMDERR 
2100 TWGTST 
2123 TERR 
2194 DSPDVC 
*********************** 



1190 


CHKFDIR 


1224 


DSPWTICON 


1297 


PBOOT 


1340 


BFAIL2 


1374 


PROREAD 


1422 


RDDATA 


1442 


PROXIT2 


1501 


STRTRD 


1533 


STAT01 


1556 


STATERR 


1578 


GETRSP 


1594 


FINDERR 


1616 


WFBSY1 


1647 


WFNBSY2 


1663 


DOCRES 


1724 


NOCRD 


1734 


SENDMSG 


1820 


INVSUM 


1841 


CHKPASS 


1877 


CHKTIM 


1950 


DISINT 


1969 


DSPTIM 


2013 


DSCONT 


2052 


SETERR2 


2079 


TODSET 


2107 


TWGLOOP 


2131 


DSPCLK 



1202 


CLAMPIT 


1246 


VCTRINIT 


1306 


HDSKERR 


1349 


HDERR2 


1385 


CHKBSY 


1433 


PROERR 


1457 


PROINIT 


1516 


GETSTAT 


1547 


COPY6 


1558 


STATXIT 


1585 


RSPOK 


1601 


FNDXIT 


1629 


SENDRSP 


1650 


WFNBSY3 


1690 


IOSBOOT 


1729 


INVID 


1778 


RDIOSLT 


1822 


SAVERR 


1843 


CHKPAS2 


1905 


TWGCHK 


1957 


WRTMSG 


1984 


NOCHG 


2046 


SELF 


2054 


DSPERR 


2087 


SETXIT 


2122 


TOOLONG 


2170 


TWGDSP 



* FILE LABEL STATISTICS 
*********************** 

File Lines = 

Label Count = 
Local Label Count = 
Min Label Length = 
Max Label Length = 
Avg Label Length = 
Std Dev Label Length = 



*********************************************************** 

*********************************************************** 

2203 

142 

86 

4 SELF 
10 CHKPROFILE 



6 
0.98 



Label Length Frequency Counts: 

No . Labels with Length 4 : 

No. Labels with Length 5 

No. Labels with Length 6 

No. Labels with Length 7 

No. Labels with Length 8 

No. Labels with Length 9 

No. Labels with Length 10 



2 

19 
58 
47 
13 
2 
1 



********************************************************************************** 

* END OF FILE: RM248.B.TEXT 
********************************************************************************** 



***************************** 

* LABEL INFO FOR FILE : RM248 
***************************** 

7 INITMON 
42 INIT3 
110 OTHRBTNS 
180 DORESET 
249 LEV1LOOP 
269 WRTSCRN 
299 WRTMENU 
330 WRTBOX1 
374 SQUAWK 
431 DSPMENU 



***************************************************** 

.M.TEXT 
***************************************************** 



14 INIT1 
71 MONITOR 
113 DOMENU 
185 CONTCHK 
255 GETERR 
282 CLRBOX 
314 DRWLINE 
351 ReadKey 
386 KeyToAscii 
446 GETLEV2 



22 INIT2 
87 LEVEL1 
139 GETL1 
244 GETL1XIT 
268 CLRSCRN 
289 CLRIT 
320 DRWIT 
362 ReadKey 
405 LEVEL2 
455 DSPMENU 
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<542> 
<543> 
<544> 
<545> 
<546> 
<547> 
<548> 
<549> 
<550> 
<551> 
<552> 
<553> 
<554> 
<555> 
<556> 
<557> 
<558> 
<559> 
<560> 
<561> 
<562> 
<563> 
<564> 
<565> 
<566> 
<567> 
<568> 
<569> 
<570> 
<571> 
<572> 
<573> 
<574> 
<575> 
<576> 
<577> 
<578> 
<579> 
<580> 
<581> 
<582> 
<583> 
<584> 
<585> 
<586> 
<587> 
<588> 
<589> 
<590> 
<591> 
<592> 
<593> 
<594> 
<595> 
<596> 
<597> 
<598> 
<599> 
<600> 
<601> 
<602> 
<603> 
<604> 
<605> 
<606> 



500 WRTMENU 

595 DSEMEM 

694 RDDTA 

864 MMUTSTE1 

882 LOOPTBL 

961 DRWVERT 
1010 LEV2LOOP 
1039 SETCUR 
1087 PUTLF 
1130 RDINPUT 
1192 RDINPUT 
1268 PUTLF 
1300 ENQKBD 
1342 GETPARM 
1368 GETEXIT 
1380 CONVERT 
1429 GETINPUT 
1479 GET2 
1516 GET3 
1546 COPS0 
1608 COPS4 
1673 ENBLDRVS 
1763 CHKPXIT 
1823 INVERT 
1960 Fine 
2010 Mouslnit 
2127 CursorDisplay 
2310 Cursorlnit 
2341 DEPOSIT 
2367 WRITE 
2400 CHKHDR 
********************** 



549 DSPMENUBOX 
620 RDCNT 
740 CALLRTN 
869 NOSCCTST 
907 VIDAJST 
988 PowerCycle 

1012 INVXIT 

1051 CLRCUR 

1099 PUTBS 

1135 READIN 

1197 READIN 

1281 PUTBS 

1313 GETCH 

1345 READQ 

1371 INVPARM 

1396 DBOXDSPLY 

1433 GET1 

1481 WAIT2 

1517 WAIT3 

1555 COPS1 

1629 ReadCOPS 

1713 CHKPOSN 

1792 CHKINPUT 

1940 MouseMovement 

1972 Coarse 

2060 Cursorlnit 

2232 NMISET 

2331 NMISET 

2343 DEMLOOP 

2379 RDMULTI 

2435 CHKSUM 
************************** 



579 MAKESVCW 

670 SETMEM 

773 LOOPTST 

875 MEMTST3 

944 DRWHORZ 

999 INVALID 
1022 NOTAVAIL 
1069 SCROLL 
1109 PROMPT 
1175 PROMPT 
1234 SCROLL 
1289 CLRIT 
1325 GETA 
1361 OKCH 
1373 GETXIT2 
1410 CLRDBOX 
1435 CHKIT 
1483 CHKIT2 
1542 WT4INPUT 
1565 COPS2 
1644 PowerOff 
1719 GETNTRY 
1796 RDENTRY 
1948 Scale 
1981 Bounds 
2091 CursorHide 
2238 RSTOR 
2337 CMDDONE 
2357 READ 
2390 WRMULTI 
2444 ECHOSUM 
********************************** 



* FILE LABEL STATISTICS 
********************************************************************************** 

File Lines = 2452 

Label Count = 123 

Local Label Count = 122 

Min Label Length = 4 GETA 

Max Label Length = 13 MouseMovement 

Avg Label Length = 6 

Std Dev Label Length = 1.60 



Label Length 

No . Labels 

No . Labels 

No . Labels 

No . Labels 

No . Labels 

No . Labels 

No . Labels 

No . Labels 

No . Labels 

No . Labels 



Frequency Counts 

with Length 4 

with Length 5 

with Length 6 

with Length 7 

with Length 8 

with Length 9 

with Length 10 

with Length 11 

with Length 12 

with Length 13 



7 

25 

26 

41 

15 

1 

6 





2 



********************************************************************************** 

* END OF FILE: RM248.M.TEXT 
********************************************************************************** 



********************************************************************************** 

* LABEL INFO FOR FILE : RM248.G.TEXT 
********************************************************************************** 

33 DRAWDESK 40 CLRDESK 59 gray 

61 grayl 92 BLACKEN 95 whiten 

112 CLRMENU 151 PAINT_BOX 153 paintbl 

156 inverse 157 cont 159 paintb2 
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<607> 


183 


star top 


186 


movinst 


190 


exclusive 


<608> 


193 


compare 


199 


nextline 


212 


MAKEPCALRT 


<609> 


223 


MAKEALERT 


241 


MAKETEST 


270 


MAKEDBOX 


<610> 


300 


MAKEWINDOW 


341 


MAKEBOX 


448 


PAINT_V 


<611> 


450 


paintvl 


481 


PAINTBIT 


520 


MAKEBUTN 


<612> 


604 


DRAWBUTN 


670 


DRAWSIDES 


711 


MAKEMENU 


<613> 


773 


WRITETITLE 


827 


GETROWCOL 


857 


GETLENGTH 


<614> 


877 


DSPRGICON 


900 


OUTPUT 


904 


loopO 


<615> 


908 


loopl 


910 


loop2 


935 


DSPNUMICON 


<616> 


957 


DSPNUM 


1027 


DSPERRICON 


1034 


DSPBAD 


<617> 


1054 


MRGICON 


1087 


DSPALRTICON 


1115 


DSPQICON 


<618> 


1139 


INVICON 


1158 


DSPCPU 


1163 


DSPMBRD 


<619> 


1168 


DSPIOB 


1173 


DSPXCRD 


1177 


DODSPLY 


<620> 


1194 


CHKCPU 


1199 


CHKMBRD 


1204 


CHKIOBRD 


<621> 


1209 


CHKXCRD 


1213 


DSPCHECK 


1231 


DSPICON 


<622> 


1238 


DLCOP 


1241 


MLCOP 


1246 


BLACK 


<623> 


1248 


CHECK 


1253 


DONE 


1265 


XLOOP 


<624> 


1291 


DSPSTRING 


1333 


DSPALL 


1346 


DSPGERMN 


<625> 


1350 


DSPFRNCH 


1355 


DSPOUT 


1371 


DSPIT 


<626> 


1394 


DSPMSLSH 


1408 


DSPALRTMSG 


1424 


CONVRTD5 


<627> 


1436 


DSPMSGR 


1460 


DSPMSG 


1473 


DSPDONE 


<628> 


1487 


SETCRSR 


1489 


SETCRSR2 


1532 


DSPVAL 


<629> 


1581 


OUTPUT 


1616 


out 


1624 


DSPVXIT 


<630> 


1635 


SPACE 


1638 


FONTTBL 


1685 


QUESTCH 


<631> 


1689 


INVCHAR 


1693 


APPLICON 


1702 


AsciiTable 


<632> 


1722 


CrsrData 


1723 


CrsrMask 


1729 


ONE 


<633> 


1730 


TWO 


1731 


THREE 


1733 


IObrd 


<634> 


1742 


CPUbrd 


1752 


MEMbrd 


1762 


Xcard 


<635> 


1769 


waiticon 


1783 


proicon 


1792 


upper 


<636> 


1802 


driven 


1810 


insertd 


1821 


keybdout 


<637> 


1839 


mouseout 


1848 


Question 


1854 


checkmrk 


<638> 


1865 


badmrk 


1875 


diskette 


1883 


lisa 


<639> 


1910 


INITMSG 


1915 


CROMMSG 


1919 


CROMMSG 


<640> 


1924 


IORMMSG 


1926 


CPUMSG 


1931 


RAMMSG 


<641> 


1933 


IOMSG 


1935 


IOSMSG 


1937 


DSKMSG 


<642> 


1939 


BOOTERR 


1941 


DVCMSG 


1944 


ERRMSG 


<643> 


1946 


EXCPMSG 


1950 


BOOTMSG 


1953 


BOOTMSG 


<644> 


1957 


BADBOOT 


1963 


BRNMSG 


1965 


TIMMSG 


<645> 


1967 


TWGMSG 


1969 


LOOPMSG 


1971 


PMMSG 


<646> 


1973 


THGFAIL 


1975 


TWGRSLT 


1982 


CONTMSG 


<647> 


1985 


LEV1MSG 


1988 


LEV2MSG 


1999 


CHKMSG 


<648> 


2006 


RTRYMSG 


2013 


CONTMSG 


2020 


STRTMSG 


<649> 


2027 


PERIODS 


2030 


MENUHDG 


2033 


DISPMSG 


<650> 


2035 


SETMSG 


2037 


CALLMSG 


2041 


LPMSG 


<651> 


2045 


VTDMSG 


2049 


CYCLMSG 


2053 


QUITMSG 


<652> 


2056 


MENUID 


2074 


NOTAMSG 


2078 


TSTMENU 


<653> 


2105 


ADDRMSG 


2107 


DATAMSG 


2109 


CNTMSG 


<654> 


2111 


DRVMSG 


2113 


DVCEMSG 


2115 


TSTMSG 


<655> 


2119 


ADDRMSG 


2121 


DATAMSG 


2123 


CNTMSG 


<656> 


2125 


TSTMSG 


2130 


WHATMSG 


2137 


VRSN 


<657> 


2143 


VRSN 


2146 


VRSN 


2154 


HDGMSG 


<658> 


2157 


VRSN 


2158 


REV 


2162 


LAST 


<659> 


******************************************************* 


<660> 


* FILE 


LABEL STATISTICS 










<661> 


********************************************************************************** 


<662> 


File Lines = 


2165 








<663> 


Label Count = 


168 








<664> 


Local Label Count = 


37 








<665> Min 


Label Length = 


3 out 






<666> 


Max 


Label Length = 


11 DSPALRTICON 






<667> 


Avg 


Label Length = 


6 








<668> 


Std Dev Label Length = 


1.50 








<669> 














<670> 


Label Length Frequency 


Counts : 








<671> 


No. Labels with Lengt 


h 3: 


4 
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<672> 
<673> 
<674> 
<675> 
<676> 
<677> 
<678> 
<679> 
<680> 
<681> 
<682> 
<683> 
<684> 
<685> 
<686> 
<687> 
<688> 
<689> 
<690> 
<691> 
<692> 
<693> 
<694> 
<695> 
<696> 
<697> 
<698> 
<699> 
<700> 
<701> 
<702> 
<703> 
<704> 
<705> 
<706> 
<707> 
<708> 
<709> 
<710> 
<711> 
<712> 
<713> 
<714> 
<715> 
<716> 
<717> 
<718> 
<719> 
<720> 
<721> 
<722> 
<723> 



4 


9 


5 


18 


6 


35 


7 


61 


8 


25 


9 


8 


10 


7 


11 


1 



No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 
******************************************************** 

* END OF FILE: RM248.G.TEXT 
********************************************************************************** 

********************************************************************************** 

* SUMMARY FILE LABEL INFO: 
********************************************************************************** 

File Name List: 



1] Text File? Yes 

2] Text File? Yes 

3] Text File? Yes 

4] Text File? Yes 

5] Text File? Yes 

6] Text File? Yes 



Size: 


85424 bytes - 


Size: 


68486 bytes - 


Size: 


74719 bytes - 


Size: 


83283 bytes - 


Size: 


90911 bytes - 


Size: 


71125 bytes - 



"RM248.E.TEXT" 
"RM248.K.TEXT" 
"RM248.S.TEXT" 
"RM248.B.TEXT" 
"RM248.M.TEXT" 
"RM248.G.TEXT" 



473948 



All File Label Statistics : 
File Lines = 

Label Count = 

Local Label Count = 
Min Label Length = 

Max Label Length = 

Avg Label Length = 

Std Dev Label Length = 

Label Length Frequency Counts: 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 
********************************************************************************** 

* END OF SUMMARY FILE LABEL INFO 
********************************************************************************** 

That's all Folks ! 



12523 




1504 




401 




2 


R0 


13 


MouseMovement 


6 




1.49 




Jlt£ 

2 




13 


3 




35 


4 




140 


5 




222 


6 




389 


7 




462 


8 




181 


9 




32 


10 




20 


11 




4 


12 




4 


13 




2 



I wrote the following MPW tools that analyzed the Boot ROM source code: 

DTCGetAsmComments 

DTCAsmOpcodelnfo 

DTCAsmLabellnfo 

The source code for these tools follows : 

MPW Tool Listing: DTCGetAsmComments 
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1> 

2> 
3> 
4> 
5> 
6> 
7> 
8> 
9> 



< 10> 

< 11> 

< 12> 

< 13> 

< 14> 

< 15> 

< 16> 

< 17> 

< 18> 

< 19> 

< 20> 

< 21> 

< 22> 

< 23> 

< 24> 

< 25> 

< 26> 

< 27> 

< 28> 

< 29> 

< 30> 

< 31> 

< 32> 

< 33> 

< 34> 

< 35> 

< 36> 

< 37> 

< 38> 

< 39> 

< 40> 

< 41> 

< 42> 

< 43> 

< 44> 

< 45> 

< 46> 

< 47> 

< 48> 

< 49> 

< 50> 

< 51> 

< 52> 

< 53> 

< 54> 

< 55> 

< 56> 

< 57> 

< 58> 

< 59> 

< 60> 

< 61> 

< 62> 

< 63> 

< 64> 

< 65> 



get assembler comments 

purpose: this program is an apple mpw shell tool that fetchs 
all comment lines from an assembler listing 

author : david t craig, 736 edgewater, wichita, kansas 67230 
date : June 1993 

language : apple mpw pascal 3.2 
type : apple mpw shell tool 
environment: apple mpw shell 



input 
output 



DTCGetAsmComments comment- start- string asm-text-file 

list of all lines whose first character is in the 
comment-start-string parameter, output is to 
the mpw shell ' s standard output 

each outputted line begins with the source file line 
number of the comment line 

at the end of the output exists information on the 
total number of lines in the file, the total number of 
comment lines in the file, and the ratio of these 
two values which may be of some interest to those with 
an interest in software metrics (such as the good folks 
who write papers for the IEEE Computer magazine) 



I 

| example 

I 



DTCGe tAsmComments 



FooBar . a 



this example searches for all lines in file FooBar. a which 
begin with either a " ; " or " * " character and write those 
such lines to standard output 



program get_asm_comments ; 



USES 

MemTypes, 
OSIntf , 
Toollntf , 
Packages , 
PasLiblntf , 
IntEnv, 
CursorCtl ; 

{$r+} 



{ Macintosh common types } 

{ Macintosh Operating System interface 

{ Macintosh ToolBox interface } 

{ Macintosh Package interface } 

{ Pascal runtime libary interface } 

{ MPW integrated environment interface 

{ MPW shell cursor unit } 



type 

t_string = string [255] ; 

var 

arg_tool_name : t_string ; 

arg_comment_string : t_string; 

arg_asm_f ile_name : t_string ; 

asm_file : text; 

line_count : longint ; 

line_rem_count : longint ; 

line_data : t_string ; 

line_rem_count_ratio : longint ; 

line_char_count : longint ; 

line_char_rem_count : longint ; 

error : integer ; 



{ remark/comment count } 
{ remark / count } 
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66> 
67> 
68> 
69> 
70> 
71> 
72> 
73> 
74> 
75> 
76> 
77> 
78> 
79> 
80> 
81> 
82> 
83> 
84> 
85> 
86> 
87> 
88> 
89> 
90> 
91> 
92> 
93> 
94> 
95> 
96> 
97> 
98> 
99> 
<100> 
<101> 
<102> 
<103> 
<104> 
<105> 
<106> 
<107> 
<108> 
<109> 
<110> 
<111> 
<112> 
<113> 
<114> 
<115> 
<116> 
<117> 
<118> 
<119> 
<120> 
<121> 
<122> 
<123> 
<124> 
<125> 
<126> 
<127> 
<128> 
<129> 
<130> 



function char_in_string (c : char; s : t_string) : boolean; 



in_string : boolean; 
i : integer ; 

begin 

in_string := false; 

for i := 1 to length (s) do 
if s [i] = c then 
in_string := true; 

char_in_string := in_string; 
end; 

function rem_chars_in_line (s : t_string) : integer; 



var 

rem_char_count 

i 

done 



integer ; 
integer ; 
boolean; 



begin 

rem_char_count := 0; 

i := length (s) ; 
done := false ; 

repeat 

if i <= then 
done := true 
else 
begin 

if s[i] = arg_comment_string[l] then 
begin 

done := true; 

rem_char_count := length (s) - i + 1; 
end; 
end; 
i := i - 1; 
until done; 

rem_chars_in_line := rem_char_count ; 
end; 

begin 

InitCursorCtl (NIL) ; { mpw beach ball cursor } 



writeln ( 
writeln ( 
writeln ( 
writeln ; 
writeln ( 
writeln ( 
writeln ; 
writeln ( 
writeln ( 
writeln ( 
writeln ( 
writeln ( 
writeln ; 



'Assembly Source Code Comment Fetcher Utility'); 

'Written by David T. Craig [ ' ,compdate, ' ' ,comptime, ' ] ' ) ; 

'736 Edgewater, Wichita, Kansas 67230 (316) 733-0914'); 

' This utility reads all comment lines in an assembly language ' ) ; 
'source file and writes those comment lines to standard output. ') ; 

'At the end of the output listing exists some source file metrics. ') ; 
' These metrics cover the number of source and comment lines , and the ' ) ; 
' number of line and comment characters . Note that the content character ' ) ; 
' count also takes into account comments existing at the end of a regular ' ) 
' source line (eg : " OPCODE OPERAND ; line end comment" ) ' ) ; 



arg_tool_name := argv A [0]' 
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<131> 
<132> 
<133> 
<134> 
<135> 
<136> 
<137> 
<138> 
<139> 
<140> 
<141> 
<142> 
<143> 
<144> 
<145> 
<146> 
<147> 
<148> 
<149> 
<150> 
<151> 
<152> 
<153> 
<154> 
<155> 
<156> 
<157> 
<158> 
<159> 
<160> 
<161> 
<162> 
<163> 
<164> 
<165> 
<166> 
<167> 
<168> 
<169> 
<170> 
<171> 
<172> 
<173> 
<174> 
<175> 
<176> 
<177> 
<178> 
<179> 
<180> 
<181> 
<182> 
<183> 
<184> 
<185> 
<186> 
<187> 
<188> 
<189> 
<190> 
<191> 
<192> 
<193> 
<194> 
<195> 



if argc <> 3 then 

begin 

writeln ( ' ### ERROR : Wrong number of arguments for this tool ' ) ; 
writeln('### SYNTAX: ' ,arg_tool_name, ' comment-start-string asm- text- file' ) 
writeln ( ' ### comment-start-string : comment line start (eg ";*:)') 

writeln ('### asm- text- file : file name (eg "FooBar.a") ' ) ; 

end 
else 

begin 

arg_comment_string : = argv A [ 1 ] A ; 
arg_asm_file_name := argv A [2] A ; 

writeln ( 'Assembly Source File Name: ' ,arg_asm_file_name) ; 
writeln; 

reset (asm_file , arg_asm_f ile_name) ; error := ioresult ; 

if error <> then 

writeln ( ' ### ERROR ' , error : , 

' opening file " ' , arg_asm_f ile_name , "" ) 
else 
begin 

line_count := 0; 
line_rem_count := 0; 

line_char_count := 0; 
line_char_rem_count := 0; 

writeln ( ' LINE # ASSEMBLY SOURCE FILE LINE ' ) ; 

writeln ( ' ===== ============================================= ' , 



= '); 



while not(eof (asm_file) ) and (error = 0) do 
begin 

line_count := line_count + 1; 
if (line_count mod 16) = then 
SpinCursor (1) ; 

readln (asm_f ile , line_data) ; error := ioresult; 

if error <> then 

writeln ( ' ### ERROR ' , error : , 

' reading file " ' , arg_asm_f ile_name , "" ) 
else 
begin 

if length (line_data) > then 
begin 

line_char_count := line_char_count + length (line_data) ; 

if char_in_string(line_data[l] ,arg_comment_string) then 
begin 

line_rem_count := line_rem_count + 1; 
line_char_rem_count := line_char_rem_count + 

length (line_data) ; 

writeln (line_count: 6, ' : ' ,line_data) ; 
error := ioresult; 

if error <> then 

writeln ( ' ### ERROR ' , error : , 

' writing output file ' ) ; 
end 
else 
begin 

{ count comment chars at end of line too } 
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<196> 
<197> 
<198> 
<199> 
<200> 
<201> 
<202> 
<203> 
<204> 
<205> 
<206> 
<207> 
<208> 
<209> 
<210> 
<211> 
<212> 
<213> 
<214> 
<215> 
<216> 
<217> 
<218> 
<219> 
<220> 
<221> 
<222> 
<223> 
<224> 
<225> 
<226> 
<227> 
<228> 
<229> 
<230> 
<231> 
<232> 
<233> 
<234> 
<235> 
<236> 
<237> 
<238> 



line_char_rem_count : 
end; 



= line_char_rem_covint + 

rem chars in line (line data) 



end; 



end; 
end; 

close (asm_f ile) ; 

if error = then 
begin 

if line_count > then 

line_rem_count_ratio : 
else 

line rem count ratio : 



= (line_rem_count * 100) div line_count 
= 0; 



writeln ; 

writeln ( ' File Line and Comment Metrics : ' ) ; 

writeln ; 

writeln (' Total Lines = ' ,line_count:8) ; 

writeln (' Total Comment Lines = ' ,line_rem_count:8) ; 

writeln ( ' Comment / Line Count % = ' , line_rem_count_ratio : 8 , ' % ' ) 

if line_char_count > then 

line_rem_count_ratio := (line_char_rem_count * 100) div 

line_char_count 
else 

line rem count ratio := 0; 



writeln; 
writeln ( ' 
writeln ( ' 
writeln ( ' 
end; 



Total Characters 

Total Comment Characters 

Comment / Line Character 



= ' ,line_char_count:8) ; 

= ' ,line_char_rem_count:8) ; 

= ' , line rem count ratio : 8 , ' % ' ) 



end; 



end; 

writeln ; 

writeln ('That' 's all Folks !'); 
end. 

{ finis } 



MPW Tool Listing: DTCAsmOpcodelnfo 



1> { 

2> 

3> 

4> 
5> 
6> 

7> 

8> 

9> 
10> 
11> 
12> 
13> 
14> 
15> 
16> 
17> 
18> 



FETCH ASSEMBLY LANGUAGE SOURCE FILE OPCODE STATISTICS 



Version 1 . 

purpose : this program is an apple mpw shell tool that outputs 
statistical information about the opcodes existing in 
assembly language source code text files, this info 
consists of a list of all opcode names, their 
frequencies, and a histogram of these frequencies 

author : david t craig 

address : 736 edgewater, wichita, kansas 67230 

date : July 1993 

language : apple mpw pascal 3.2 
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19> 
20> 
21> 
22> 
23> 
24> 
25> 
26> 
27> 
28> 
29> 
30> 
31> 
32> 
33> 
34> 
35> 
36> 
37> 
38> 
39> 
40> 
41> 
42> 
43> 
44> 
45> 
46> 
47> 
48> 
49> 
50> 
51> 
52> 
53> 
54> 
55> 
56> 
57> 
58> 
59> 
60> 
61> 
62> 
63> 
64> 
65> 
66> 
67> 
68> 
69> 
70> 
71> 
72> 
73> 
74> 
75> 
76> 
77> 
78> 
79> 
80> 
81> 
82> 
83> 



type : apple mpw shell tool 
environment: apple mpw shell 



input 



DTCAsmOpcodelnfo comment-char asm-text-file-list 



where comment-char 



is a list of characters 
denoting a comment line 



output 



asm-text-file-list is a list of assembly language 
source code file names 

: Progress info goes to the screen and opcode info goes to 
standard output, the opcode info consists of a list of the 
opcodes and for each opcode appears its name, frequency, and 
a frequency histogram (3 lists are produced with 1st being 
an unsorted list, 2nd sorted by name, 3rd sorted by frequency) 

example : DTCAsmOpcodelnfo ";#" FooBar.a Frodor.a 

sample output: 

the following command line was used to produce this section ' s 
sample output listing; 

DTCAsmOpcodelnfo " ; " FooBar . a Frodor . a 

the progress info looks like the following ; 

Assembly Source File Opcode Information Gatherer 
Written by David T. Craig [7/11/93 2:34:05 PM] 
736 Edgewater, Wichita, Kansas 67230 
Copyright (c) 1993 by David T. Craig 

Current Date and Time: Sunday, July 11, 1993 2:34:41 PM 

Scanning file "FooBar.a" for opcodes . . . 
Scanning file "Frodor.a" for opcodes . . . 

That's all, folks ! 

the opcode info looks like the following ; 

Assembly Source File Opcode Information Gatherer 
Version: 1.0 [7/11/93] 



Version : 1.0 



File # 
File # 



1 : FooBar . a 
2 : Frodor . a 



Opcode List unsorted: 

Minimum opcode frequency = 306 
Maximum opcode frequency = 804 



# Opcode 




1 


.PAGE 


2 


.LIST 


3 


BSR 


4 


CLR.L 


5 


BTST 



Frequency Histogram 



115 ******** 

10 ** 
479 ******************************* 
95 ******* 
3g ******* 



Opcode List sorted by NAME: 

Minimum opcode frequency = 306 
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84> 
85> 
86> 
87> 
88> 
89> 
90> 
91> 
92> 
93> 
94> 
95> 
96> 
97> 
98> 
99> 
<100> 
<101> 
<102> 
<103> 
<104> 
<105> 
<106> 
<107> 
<108> 
<109> 
<110> 
<111> 
<112> 
<113> 
<114> 
<115> 
<116> 
<117> 
<118> 
<119> 
<120> 
<121> 
<122> 
<123> 
<124> 
<125> 
<126> 
<127> 
<128> 
<129> 
<130> 
<131> 
<132> 
<133> 
<134> 
<135> 
<136> 
<137> 
<138> 
<139> 
<140> 
<141> 
<142> 
<143> 
<144> 
<145> 
<146> 
<147> 
<148> 



Maximum opcode frequency = 804 
# Opcode Frequency Histogram 



1 
2 
3 
4 
5 



.ABSOLUTE 1 * 
.ALIGN 1 * 

.ASCII 76 ****** 

.BYTE 306 ******************** 

.ELSE 78 ****** 



Opcode List sorted by FREQUENCY: 

Minimum opcode frequency = 306 
Maximum opcode frequency = 804 



# Opcode 




1 


.EQU 


2 


BSR 


3 


MOVE.L 


4 


MOVEQ 


5 


.BYTE 



Frequency Histogram 



304 ******************************************** 
479 ******************************* 
383 ************************* 
37g ************************ 
306 ******************** 



FINIS 
usage notes: 

(0) a spinning beach ball cursor appears during file processing, 
the spin direction alternates for every other file 

(1) opcodes with up to 15 characters are handled (longer opcodes 
are truncated) , opcodes are read until either a space character 
or control character is found, or until the end of the line 

is reached 

theory of operation: 

for each argument file all the lines are scanned with each line ' s 
opcode name extracted (if existing) and name either added to 
opcode list or if name already exists in the list then name ' s 
frequency is incremented 

programming notes : 

(0) opcode names are delimited by "white space" which consists of 
all characters less than or equal to ascii space character (#32) 

(1) all opcode names are stored in the opcode list with uppercase 
characters 

(2) opcode list contains opcode name and frequency, list is a simple 
array without any specific ordering 

(3) opcode list is finite in length 



program asm_opcode_inf o ; 



USES 

MemTypes, 
OSIntf , 



{ Macintosh common types } 

{ Macintosh Operating System interface ) 
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<149> 
<150> 
<151> 
<152> 
<153> 
<154> 
<155> 
<156> 
<157> 
<158> 
<159> 
<160> 
<161> 
<162> 
<163> 
<164> 
<165> 
<166> 
<167> 
<168> 
<169> 
<170> 
<171> 
<172> 
<173> 
<174> 
<175> 
<176> 
<177> 
<178> 
<179> 
<180> 
<181> 
<182> 
<183> 
<184> 
<185> 
<186> 
<187> 
<188> 
<189> 
<190> 
<191> 
<192> 
<193> 
<194> 
<195> 
<196> 
<197> 
<198> 
<199> 
<200> 
<201> 
<202> 
<203> 
<204> 
<205> 
<206> 
<207> 
<208> 
<209> 
<210> 
<211> 
<212> 
<213> 



Toollntf , 
Packages , 
PasLiblntf , 
IntEnv, 
ErrMgr , 
CursorCtl ; 

{$r+} 



{ Macintosh ToolBox interface } 

{ Macintosh Package interface } 

{ Pascal runtime libary interface } 

{ MPW integrated environment interface } 

{ MPW error manager interface } 

{ MPW shell cursor unit } 



const 

k_pgm_title 

k_pgm_version 

k_pgm_date 

k_pgm_time 

k_pgm_author 

k_pgm_address 

k_pgm_copyright 

k_max_opcodes 
k_max_opcode_name_len 

k_err_alpha 

k_err_list_full 

k_err_omega 

type 

t_opcode_name 
t_opcode_freq 
t_opcode_info 



'Assembly Source File Opcode Information Gatherer' 

'1.0'; 

compdate; { mpw pascal specific } 

comptime; { mpw pascal specific } 

'David T. Craig' ; 

'736 Edgewater, Wichita, Kansas 67230'; 

'Copyright (c) 1993 by David T. Craig'; 

1500; 

15; 

32000; 
32000; 
32000; 



string [k_max_opcode_name_len] ; 
integer; 



record 
oi_name 
oi_freq 

end; 



t_opcode_list 
t_opcode_list_ptr 

t_sort_order 

t_string 

var 

g_mac_date_time 

g_arg_tool_name 

g_arg_comment_chars 

g_arg_index 

g_arg_file_name 

g_process_error 

g_process_error_total 

g_good_list 

g_opcode_list 

g_opcode_list_count 

{$S SgAsmCpcodelnfo} 



{ 



t_opcode_name ; 
t_opcode_f req ; 



= array [1. .k_max_opcodes] of t_opcode_inf o ; 
= A t_opcode_list; 

= (sort_by_name , sort_by_freq) ; 

= str255; 



t_string; 

t_string; 

t_string; 

integer; 

t_string; 

integer; 

integer ; 

boolean ; 

t_opcode_list_ptr ; 

integer; 



{ current machine date/time } 



procedure fetch_mac_error_message ( the_error 

var the_error_msg 

var 

msg : string [99] ; 



integer; 
t_string) ; 



begin 

if (the_error >= k_err_alpha) and (the_error <= k_err_omega) then 
begin 



The Legacy of the « Lisa: An Outsider's View [Chapter XXX] REVISION 1 



45of 80 



<214> case the_error of 

<215> k_err_list_full : msg : = ' Opcode list is full . ' ; 

<216> otherwise msg := 'Unknown tool error (contact programmer) . ' ; 

<217> end; { case } 

<218> 

<219> the_error_msg := msg; 

<220> end 

<221> else 

<222> begin 

<223> GetSysErrText (the_error,@the_error_msg) ; 

<224> end; 

<225> end; 

<226> 

<227> { } 

<228> 

<229> procedure show_error (the_error : integer; the_msg : t_string) ; 

<230> 

<231> var 

<232> err_msg : t_string; 

<233> 

<234> begin 

<235> fetch_mac_error_message(the_error,err_msg) ; 

<236> 

<237> writeln (diagnostic, '### ERROR ' , the_error : , ' : ' ,the_msg) ; 

<238> writeln (diagnostic, ' ' ,err_msg) ; 

<239> end; 

<240> 

<241> { } 

<242> 

<243> procedure get_current_date_time (var s : t_string) ; 

<244> 

<245> var 

<246> mac_date_time_info : longint; 

<247> date_time_string : str255; 

<248> 

<249> begin 

<250> getdatetime (mac_date_time_info) ; 

<251> iudatestring (mac_date_time_inf o , longdate , date_time_string) ; 

<252> 

<253> s := date_time_string; 

<254> 

<255> iutimestring (mac_date_time_inf o , true , date_time_string) ; 

<256> 

<257> s := concat(s,' ' ,date_time_string) ; 

<258> end; 

<259> 

<260> { } 

<261> 

<262> function is_whitespace (c : char) : boolean; 

<263> 

<264> const 

<265> k_max_whitespace = chr(32); { ascii SPACE } 

<266> 

<267> begin 

<268> is_whitespace := (c <= k_max_whitespace) ; 

<269> end; 

<270> 

<271> { } 

<272> 

<273> procedure trim_leading_whitespace (var s : t_string; var cl : char) ; 

<274> 

<275> var 

<276> done : boolean; 

<277> 

<278> begin 
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<279> 


if length (s) > then { setup 


<280> 


cl := s[l] 


<281> 


else 


<282> 


cl := chr(O); 


<283> 




<284> 


done := false ; 


<285> 




<286> 


repeat 


<287> 


begin 


<288> 


if length (s) = then 


<289> 


done := true 


<290> 


else 


<291> 


begin 


<292> 


if is whitespace(s[l] ) 


<293> 


delete (s, 1,1) 


<294> 


else 


<295> 


done := true; 


<296> 


end; 


<297> 


end; 


<298> 


until done; 


<299> 


end; 


<300> 





{ setup first string character for caller } 



then 



<301> { } 

<302> 

<303> procedure fetch_next_word (s : t_string; var next_word : t_string) ; 

<304> 

<305> var 

<306> i : integer; 

<307> done : boolean; 

<308> 

<309> begin 

<310> next_word : = " ; 

<311> 

<312> if length (s) > then 

<313> begin 

<314> i := 0; 

<315> done := false; 

<316> 

<317> repeat 

<318> begin 

<319> i := i + 1; 

<320> 

<321> if i > length (s) then 

<322> begin 

<323> i := i - 1; 

<324> if i > then 

<325> next_word := copy(s,l,i) ; 

<326> 

<327> done := true; 

<328> end 

<329> else 

<330> begin 

<331> if is_whitespace (s [i] ) then 

<332> begin 

<333> i := i - 1; 

<334> if i > then 

<335> next_word := copy(s,l,i) ; 

<336> 

<337> done := true; 

<338> end; 

<339> end; 

<340> end; 

<341> until done; 

<342> end; 

<343> end; 
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<344> 

<345> { } 

<346> 

<347> procedure uppcase_opcode_name (var s : t_opcode_name) ; 

<348> 

<349> var 

<350> i : integer; 

<351> 

<352> begin 

<353> i := length (s) ; 

<354> 

<355> while i > do 

<356> begin 

<357> if s[i] in ['a'..'z'] then 

<358> s[i] := chr( ord(s[i]) - ord('a') + ord('A') ); 

<359> 

<360> i := i - 1; 

<361> end; 

<362> end; 

<363> 

<364> { } 

<365> 

<366> procedure initialize_opcode_list (var the_good_init : boolean) ; 

<367> 

<368> var 

<369> list_index : integer; 

<370> 

<371> begin 

<372> the_good_init := true; 

<373> 

<374> g_opcode_list := t_opcode_list_ptr (newptr (sizeof (t_opcode_list) ) ) ; 

<375> 

<376> if g_opcode_list = nil then 

<377> the_good_init := false 

<378> else 

<379> begin 

<380> g_opcode_list_count := 0; 

<381> 

<382> for list_index := 1 to k_max_opcodes do 

<383> begin 

<384> g_opcode_list A [list_index] .oi_name := ' '; 

<385> g_opcode_list A [list_index] .oi_freq := 0; 

<386> end; 

<387> end; 

<388> end; 

<389> 

<390> { } 

<391> 

<392> procedure terminate_opcode_list (var the_good_term : boolean) ; 

<393> 

<394> begin 

<395> the_good_term := true; 

<396> 

<397> if g_opcode_list = nil then 

<398> the_good_term := false 

<399> else 

<400> begin 

<401> disposptr (ptr (g_opcode_list) ) ; 

<402> 

<403> g_opcode_list := nil; 

<404> g_opcode_list_count := 0; 

<405> end; 

<406> end; 

<407> 

<408> { } 
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<409> 

<410> procedure get_asm_line_opcode ( the_asm_line : t_string; 

<411> var the_opcode : t_opcode_name) ; 

<412> 

<413> var 

<414> first_char : char; 

<415> comment_set : set of char; 

<416> i : integer; 

<417> next_word : t_string; 

<418> 

<419> begin 

<420> the_opcode := 

<421> 

<422> if length (the_asm_line) > then 

<423> begin 

<424> trim_leading_whitespace(the_asm_line,first_char) ; 

<425> 

<426> if length (the_asm_line) > then 

<427> begin 

<428> comment_set := [] ; 

<429> for i := 1 to length (g_arg_comment_chars) do 

<430> comment_set := comment_set + [g_arg_comment_chars [i] ] ; 

<431> 

<432> if not(the_asm_line[l] in comment_set) then 

<433> begin 

<434> if is_whitespace (f irst_char) then 

<435> begin 

<436> { " opcode ..." } 

<437> 

<438> fetch_next_word(the_asm_line,next_word) ; 

<439> 

<440> if length (next_word) >= (sizeof (the_opcode) - 1) then 

<441> next_word := copy (next_word,l, sizeof (the_opcode) -1) ; 

<442> 

<443> the_opcode := next_word; 

<444> end 

<445> else 

<446> begin 

<447> { "label [opcode] ..." } 

<448> 

<449> fetch_next_word(the_asm_line,next_word) ; 

<450> delete (the_asm_line , 1 , length (next_word) ) ; 

<451> trim_leading_whitespace(the_asm_line,first_char) ; 

<452> 

<453> { "opcode" or "" } 

<454> 

<455> if length (the_asm_line) > then 

<456> begin 

<457> if not(the_asm_line[l] in comment_set) then 

<458> begin 

<459> fetch_next_word(the_asm_line,next_word) ; 

<460> 

<461> if length (next_word) >= (sizeof (the_opcode) - 1) then 

<462> next_word := copy (next_word,l, sizeof (the_opcode) -1) ; 

<463> 

<464> the_opcode := next_word; 

<465> end; 

<466> end; 

<467> end; 

<468> end; 

<469> end; 

<470> end; 

<471> end; 

<472> 

<473> { } 
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<474> 
<475> 
<476> 
<477> 
<478> 
<479> 
<480> 
<481> 
<482> 
<483> 
<484> 
<485> 
<486> 
<487> 
<488> 
<489> 
<490> 
<491> 
<492> 
<493> 
<494> 
<495> 
<496> 
<497> 
<498> 
<499> 
<500> 
<501> 
<502> 
<503> 
<504> 
<505> 
<506> 
<507> 
<508> 
<509> 
<510> 
<511> 
<512> 
<513> 
<514> 
<515> 
<516> 
<517> 
<518> 
<519> 
<520> 
<521> 
<522> 
<523> 
<524> 
<525> 
<526> 
<527> 
<528> 
<529> 
<530> 
<531> 
<532> 
<533> 
<534> 
<535> 
<536> 
<537> 
<538> 



procedure find_opcode_in_list ( the_name : t_opcode_name ; 

var the_list_index : integer) ; 

var 

opcode_f ound : boolean ; 

begin 

the_list_index := 0; 

if g_opcode_list_count > then 
begin 

opcode_found := false ; 

repeat 
begin 

the_list_index := the_list_index + 1; 

if the_name = g_opcode_list A [the_list_index] .oi_name then 
opcode_found := true; 
end; 
until (the_list_index >= g_opcode_list_count) or opcode_found; 

if not (opcode_f ound) then 
the_list_index := 0; 
end; 
end; 

{ } 

procedure add_opcode_to_list ( the_name : t_opcode_name ; 

var the_error : integer) ; 

var 

list_index : integer ; 

begin 

the_error := noerr; 

uppcase_opcode_name (the_name) ; 

find_opcode_in_list (the_name,list_index) ; 

if list_index = then 
begin 

{ ++++++++++++++++++++++++++++++++++++++++ name not in list, so add } 

if g_opcode_list_count >= k_max_opcodes then 
begin 

the_error := k_err_list_f ull ; { list full !M } 
end 
else 
begin 

g_opcode_list_count := g_opcode_list_count + 1; 

with g_opcode_list A [g_opcode_list_count] do 
begin 

oi_name := the_name; 
oi_freq := 1; 
end; 
end; 
end 
else { list_index > } 
begin 

{ ++++++++++++++++++++++++++++++++++++++++ name in list, so inc freq } 
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<539> 

<540> with g_opcode_list A [list_index] do 

<541> oi_freq := oi_freq + 1; 

<542> end; 

<543> end; 

<544> 

<545> { } 

<546> 

<547> procedure sort_opcode_list (sort_order : t_sort_order) ; 

<548> 

<549> var 

<550> list_sorted : boolean ; 

<551> list_index : integer ; 

<552> opcode_info_a : t_opcode_inf o ; 

<553> opcode_info_b : t_opcode_inf o ; 

<554> swap_em : boolean; 

<555> 

<556> begin 

<557> { simple bubble sort (use comb sort if bs is too slow) } 

<558> 

<559> if g_opcode_list_count >= 2 then 

<560> begin 

<561> repeat 

<562> begin 

<563> list_sorted := true; 

<564> 

<565> for list_index := 1 to (g_opcode_list_count - 1) do 

<566> begin 

<567> opcode_info_a := g_opcode_list A [list_index ]; 

<568> opcode_info_b := g_opcode_list A [list_index + 1] ; 

<569> 

<570> swap_em := false; 

<571> 

<572> case sort_order of 

<573> sort_by_name : 

<574> if opcode_inf o_a . oi_name > opcode_inf o_b . oi_name then 

<575> swap_em := true; 

<576> sort_by_freq : 

<577> if opcode_inf o_a . oi_f req < opcode_inf o_b . oi_f req then 

<578> swap_em := true; 

<579> end; { case } 

<580> 

<581> if swap_em then 

<582> begin 

<583> list_sorted := false; 

<584> 

<585> g_opcode_list A [list_index ] := opcode_inf o_b ; 

<586> g_opcode_list A [list_index + 1] := opcode_inf o_a ; 

<587> 

<588> spincursor (1) ; 

<589> end; 

<590> end; { for list_index } 

<591> end; 

<592> until list_sorted; 

<593> end; 

<594> end; 

<595> 

<596> { } 

<597> 

<598> procedure dump_opcode_list (the_title : t_string) ; 

<599> 

<600> const 

<601> k_h_len = 50; 

<602> k_h_symbol = ' * ' ; 

<603> k_dividerl = ' 
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integer ; 
t_opcode_f req ; 
t_opcode_f req ; 
t_opcode_f req ; 
integer ; 



<604> k_divider2 = 

<605> 

<606> var 

<607> list_index 

<608> freqjnin 

<609> freqjnax 

<610> freq 

<611> h_value 

<612> 

<613> begin 

<614> writeln; 

<615> writeln (the_title) ; 

<616> writeln; 

<617> 

<618> if g_opcode_list_coiant > then 

<619> begin 

<620> freq_min := g_opcode_list A [1] .oi_freq; 

<621> freq_max := g_opcode_list A [1] .oi_freq; 

<622> 

<623> for list_index := 1 to g_opcode_list_count do 

<624> begin 

<625> freq := g_opcode_list A [list_index] .oi_freq; 

<626> 

<627> if freq < freq_min then freq_min := freq; 

<628> if freq > freq_max then freq_max := freq; 

<629> end; 

<630> end; 

<631> 

<632> writeln (' Minimum opcode frequency = ', freqjnin: 0) ; 

<633> writeln (' Maximum opcode frequency = ', freqjnax: 0) ; 

<634> writeln; 

<635> 

<636> writeln (' # Opcode Frequency Histogram'); 

<637> writeln (kjdividerl , k_divider2 ) ; 

<638> 

<639> if g_opcode_list_count <= then 

<640> writeln (' (no opcodes exist) ') 

<641> else 

<642> begin 

<643> for list_index := 1 to g_opcode_list_count do 

<644> begin 

<645> write (list_index : 3 , ' ' ) ; 

<646> write (g_opcode_list A [list_index] . oijiame: 15, ' '); 

<647> write (g_opcode_list A [list_index] .oi_f req: 9,' '); 

<648> 

<649> if freqjnax <> freqjnin then 

<650> begin 

<651> with g_opcode_list A [list_index] do 

<652> h_value := k_h_len - (ord4 (k_h_len-l) * ord4 (freq_max-oi_freq) div 

<653> ord4 (f reqjnax-freqjnin) ) ; 

<654> end 

<655> else { freqjnax = freqjnin } 

<656> begin 

<657> h_value := k_h_len; 

<658> end; 

<659> 

<660> while h_value > do 

<661> begin 

<662> write (k_hj3ymbol) ; 

<663> h_value := h_value - 1; 

<664> end; 

<665> 

<666> writeln; 

<667> end; 

<668> end; 
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<669> 
<670> 
<671> 
<672> 
<673> 
<674> 
<675> 
<676> 
<677> 
<678> 
<679> 
<680> 
<681> 
<682> 
<683> 
<684> 
<685> 
<686> 
<687> 
<688> 
<689> 
<690> 
<691> 
<692> 
<693> 
<694> 
<695> 
<696> 
<697> 
<698> 
<699> 
<700> 
<701> 
<702> 
<703> 
<704> 
<705> 
<706> 
<707> 
<708> 
<709> 
<710> 
<711> 
<712> 
<713> 
<714> 
<715> 
<716> 
<717> 
<718> 
<719> 
<720> 
<721> 
<722> 
<723> 
<724> 
<725> 
<726> 
<727> 
<728> 
<729> 
<730> 
<731> 
<732> 
<733> 



writeln (k_dividerl , k_divider2 ) ; 

end; 
{ 

procedure process_asm_file ( the_file_name : t_string; 

the_f ile_nvimber : integer ; 
var the_error : integer) ; 



var 
f 
1 
c 
opcode_name 



text; 

string [255] ; 
longint; 
t_opcode_name ; 



begin 

the_error := noerr ; 

writeln (' File # ' , the_f ile_nuniber : 3 , ' : ' ,the_file_name) ; 

reset (f,the_file_name) ; the_error := ioresult; 

if the_error = noerr then 
begin 

while not(eof(f)) and (the_error = noerr) do 
begin 

readln(f,l); the_error := ioresult; 

if the_error = noerr then 
begin 

c := c + 1; 
if c mod 16 = then 
begin 

if odd(the_file_number) then spincursor (+1) 

else spincursor (-1) ; 
end; 

if length (1) > then 
begin 

get_asm_line_opcode (l,opcode_name) ; 

if length (opcode_name) > then 
begin 

add_opcode_to_list (opcode_name , the_error) ; 
end; 
end; 
end; 
end; { while not(eof) } 



close (f ) ; 
end; 



end; 



begin { 



M 



MAIN : asm_opcode_info 



} 



PLSetVBuf ( output, nil ,_iolbf ,0) ; { mpw output buffer flushing control } 
InitCursorCtl (nil) ; { mpw beach ball cursor } 

InitErrMgr ('','', false) ; { mpw error message manager } 
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<734> get_current_date_time (g_mac_date_time) ; 

<735> 

<736> writeln (diagnostic) ; 

<737> writeln (diagnostic, k_pgm_ti tie, ' Version: ' ,k_pgm_version) ; 

<738> writeln (diagnostic, 'Written by ' , k_pgm_author , ' [ ' , k_pgm_date , ' ' , k_pgm_time , ' ] ' ) ; 

<739> writeln (diagnostic, k_pgm_address) ; 

<740> writeln (diagnostic, k_pgm_copyright) ; 

<741> writeln (diagnostic) ; 

<742> writeln (diagnostic, 'Current Date and Time: ' ,g_mac_date_time) ; 

<743> writeln (diagnostic) ; 

<744> 

<745> g_arg_tool_name := argv A [0] A ; 

<746> 

<747> if argc < 3 then 

<748> begin 

<749> writeln (diagnostic, '### ERROR : Tool argument list is invalid'); 

<750> writeln (diagnostic, '### SYNTAX: ' ,g_arg_tool_name, ' comment-char ', 

<751> ' asm- text- file-list') ; 

<752> end 

<753> else 

<754> begin 

<755> g_arg_comment_chars := argv A [l] A ; 

<756> 

<757> if length (g_arg_comment_chars) = then 

<758> begin 

<759> writeln (diagnostic, '### ERROR: Comment character string is empty'); 

<760> end 

<761> else 

<762> begin 

<763> initialize_opcode_list(g_good_list) ; 

<764> 

<765> if not (g_good_list) then 

<766> writeln (diagnostic, '### ERROR: Creating opcode list failed !') 

<767> else 

<768> begin 

<769> writeln (k_pgm_ti tie) ; 

<770> writeln ( 'Version: ' , k_pgm_version , ' [ ' ,k_pgm_date, ' ] ' ) ; 

<771> writeln; 

<772> 

<773> g_process_error_total := 0; 

<774> g_arg_index := 1; 

<775> 

<776> while g_arg_index < (argc - 1) do 

<777> begin 

<778> g_arg_index := g_arg_index + 1; 

<779> g_arg_file_name := argv A [g_arg_index] A ; 

<780> 

<781> writeln (diagnostic, 'Scanning file " ' ,g_arg_file_name, ' " ' , 

<782> ' for opcodes ...'); 

<783> 

<784> process_asm_f ile (g_arg_f ile_name , g_arg_index-l , g_process_error) ; 

<785> 

<786> if g_process_error <> noerr then 

<787> begin 

<788> show_error (g_process_error ,' Scanning file failed !'); 

<789> g_process_error_total : = g_process_error_total + 1; 

<790> end; 

<791> end; { while g_arg_index ) 

<792> 

<793> if g_process_error_total = then 

<794> begin 

<795> dump_opcode_list (' Opcode List unsorted:'); 

<796> 

<797> sort_opcode_list(sort_by_name) ; 

<798> dump_opcode_list (' Opcode List sorted by NAME: ') ; 
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<799> 
<800> 
<801> 
<802> 
<803> 
<804> 
<805> 
<806> 
<807> 
<808> 
<809> 
<810> 
<811> 
<812> 
<813> 
<814> 
<815> 
<816> 
<817> 
<818> 
<819> 
<820> 



sort_opcode_list(sort_by_freq) ; 

dump_opcode_list ( ' Opcode List sorted by FREQUENCY : ' ) ; 

writeln; 

writeln ( ' FINIS ' ) ; 
end; 

terminate_opcode_list (g_good_list) ; 

if not (g_good_list) then 

writeln (diagnostic, '### ERROR: Deallocating opcode list failed !') 
end; 



end; 
end; 

writeln (diagnostic) ; 

writeln (diagnostic, 'That' 's all, folks !'); 



end. { -- 
{ finis } 



MAIN : asm_opcode_info 



MPW Tool Listing: DTCAsmLabellnfo 



1> { 

2> 

3> 

4> 

5> 

6> 

7> 

8> 

9> 
10> 
11> 
12> 
13> 
14> 
15> 
16> 
17> 
18> 
19> 
20> 
21> 
22> 
23> 
24> 
25> 
26> 
27> 
28> 
29> 
30> 
31> 
32> 
33> 
34> 
35> 
36> 
37> 
38> 
39> 



FETCH ASSEMBLY LANGUAGE SOURCE FILE LABEL STATISTICS 



purpose 



author 

address 

date 

language 
type 



Version 1 . 

this program is an apple mpw shell tool that outputs 
statisitcal information about the labels existing in 
assembly language source code text files 

david t craig 

736 edgewater, wichita, kansas 67230 

June 1993 

apple mpw pascal 3.2 
apple mpw shell tool 



environment: apple mpw shell 

input : DTCAsmLabellnfo local -label -char asm-text-file-list 

where local-label-char is a single character which 

exists at the beginning of 
local variable names 

asm-text-file-list is a list of assembly language 
source code file names 

note: if local-label-char contains the word "DEBUG" then 

special internal debugging info is outputted (phrase 
case in-sensitive, so "DEBUG" is the same as "debug") 

output : for each file output consists of a set of lists as follows; 

- list of all regular labels found in the file 
(note: local labels are not listed) 

- list of file label statistics 

at the end of the output exists summary information about 
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<104> | 



all the processed files; 

- list of all processed files, whether they are standard 
Macintosh text files 

- statistics for all the labels in all the files 

- list of label length frequencies 

example : DTCAsmLabellnfo "@" FooBar.a Frodor.a 

this example states that the character that begins a local 
label name is "@" (eg: "@9") and that there are two files 
to process, FooBar.a and Frodor.a 

sample output: 

the following command line was used to produce this section ' s 
sample output listing ; 

DTCAsmLabellnfo "@" FooBar.a Frodor.a 

at the beginning of the output appears some information about the 
program, its author, and the current date and time; 



Version : 1.0 



Assembly Source File Label Information Gatherer 
Written by David T. Craig [6/13/93 4:40:18 PM] 
736 Edgewater, Wichita, Kansas 67230 
Copyright (c) 1993 by David T. Craig 



Current Date and Time: Sunday, June 13, 1993 4:40:38 PM 
for each file the following information appears; 

******************************************************** 

* LABEL INFO FOR FILE : FooBar.a 
************************************************************* 

15 VIDTST 23 VIDCHK 47 VIDERR 

54 VIDXIT 95 RDSERN 122 GetBitsl: 

152 GetBits2: 179 GetBytes: 213 Checksum: 

250 Exit: 263 FindSync: 288 GetNibbles: 



************************************************************* 

* FILE LABEL STATISTICS 
************************************************************* 



File 


Lines = 


2032 




Label 


Count = 


123 




Local 


Label Count = 


100 




Min 


Label Length = 


3 


Tag 


Max 


Label Length = 


11 


GetNibbles : 


Avg 


Label Length = 


6 




Std Dev Label Length = 


1.18 




Label 


Length Frequency Counts: 




No. 


Labels with Length 


3 




1 


No. 


Labels with Length 


4 




1 


No. 


Labels with Length 


5 




21 


No. 


Labels with Length 


6 




49 


No. 


Labels with Length 


7 




32 


No. 


Labels with Length 


8 




12 


No. 


Labels with Length 


9 




6 


No. 


Labels with Length 


10 







No. 


Labels with Length 


11 




1 



************************************************************* 

* END OF FILE: FooBar.a 
************************************************************* 
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<105> 
<106> 
<107> 
<108> 
<109> 
<110> 
<111> 
<112> 
<113> 
<114> 
<115> 
<116> 
<117> 
<118> 
<119> 
<120> 
<121> 
<122> 
<123> 
<124> 
<125> 
<126> 
<127> 
<128> 
<129> 
<130> 
<131> 
<132> 
<133> 
<134> 
<135> 
<136> 
<137> 
<138> 
<139> 
<140> 
<141> 
<142> 
<143> 
<144> 
<145> 
<146> 
<147> 
<148> 
<149> 
<150> 
<151> 
<152> 
<153> 
<154> 
<155> 
<156> 
<157> 
<158> 
<159> 
<160> 
<161> 
<162> 
<163> 
<164> 
<165> 
<166> 
<167> 
<168> 
<169> 



at the end of the output appears summary information; 

******************************************************** 

* SUMMARY FILE LABEL INFO: 
************************************************************* 

File Name List: 

[ 1] Text File? Yes Size: 83283 bytes - "FooBar.a" 
[ 2] Text File? Yes Size: 85424 bytes - "Frodor.a" 



12523 




1504 




401 




2 


R0 


13 


MouseMovement 


6 




1.49 




nts 
2 


s: 


13 


3 




35 


4 




140 


5 




222 


6 




389 


7 




462 


8 




181 


9 




32 


10 




20 


11 




4 


12 




4 


13 




2 



168707 

All File Label Statistics: 
File Lines = 

Label Count = 
Local Label Count = 
Min Label Length = 
Max Label Length = 
Avg Label Length = 
Std Dev Label Length = 

Label Length Frequency Counts: 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 

No. Labels with Length 
************************************************************* 

* END OF SUMMARY FILE LABEL INFO 
************************************************************* 

usage notes: 

(0) a spinning beach ball cursor appears during file processing, 
the spin direction alternates for every other file 

(1) labels with up to 63 characters are handled (longer labels 
are truncated) , labels are read until either a space character 
or control character is found, or until the end of the line 

is reached 

(2) only the first 20 characters of a label appear in the label 
list (most labels should not be longer than this limit) 

(3) local labels are labels which are used within an assembly 
source file for localized branches and exist only within a 
very narrow scope (for example, the mpw 68000 assembler 
denotes local labels with "@" followed by a number [@9]) , 
this program supports any single character to desinate that 
a label is a local label (actually, a multi- character string 
may be entered for the local label character, but only the 
first character will be used by this program) 

(4) only macintosh text files are processed (ie files with macintosh 
file type of "TEXT") , if a non-text file is entered the program 
skip the file and not process it 

(5) only files with data in them are processed (files with no bytes 
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<170> 
<171> 
<172> 
<173> 
<174> 
<175> 
<176> 
<177> 
<178> 
<179> 
<180> 
<181> 
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<198> 
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<204> 
<205> 
<206> 
<207> 
<208> 
<209> 
<210> 
<211> 
<212> 
<213> 
<214> 
<215> 
<216> 
<217> 
<218> 
<219> 
<220> 
<221> 
<222> 
<223> 
<224> 
<225> 
<226> 
<227> 
<228> 
<229> 
<230> 
<231> 
<232> 
<233> 
<234> 



are not processed since there is nothing to process) 

(6) input file lines are read with up to 255 characters, longer 
lines will most likely cause a read error from the pascal 
file i/o macintosh library 

theory of operation: 

each file is processed which results in 

a) the output of all found label names (excluding local labels) , 

b) various statistics are gathered, outputted, and returned to 
the main program file-fetch loop 

file label statistics are accumulated by the main program loop, 
processed, and outputted for a single set of statistical data 
for all the inputted file names 

special debugging data is also outputted if the local label argument 
string contains a special debug-me flag, all debug data is 
prefaced by a special phrase ("%%%") to ease human identification 
of debugging data 

programming notes : 

(0) standard deviation is calculated as follows: 



std.dev = 



sum(x A 2) - sum(x) A 2 



(1/2) 



+- -+ 

reference: Personal Programming: TI-58C/59 Calculator Owner's Manual 
Texas Instruments, 1979, p. V-34 



program get_asm_label_inf o ; 



USES 

MemTypes, 
OSIntf , 
Toollntf , 
Packages , 
PasLiblntf , 
IntEnv, 
ErrMgr , 
CursorCtl ; 

{$r+} 



{ Macintosh common types } 

{ Macintosh Operating System interface 

{ Macintosh ToolBox interface } 

{ Macintosh Package interface } 

{ Pascal runtime libary interface } 

{ MPW integrated environment interface 

{ MPW error manager interface } 

{ MPW shell cursor unit } 



const 

k_pgm_title = 

k_pgm_version = 

k_pgm_date = 

k_pgm_time = 

k_pgm_author = 

k_pgm_address = 

k_pgm_copyright = 

k_max_label_length = 

k_divider = 
k_debug_phrase 



'Assembly Source File Label Information Gatherer' ; 

'1.0'; 

compdate; { mpw pascal specific } 

comptime; { mpw pascal specific } 

'David T. Craig' ; 

'736 Edgewater, Wichita, Kansas 67230'; 

'Copyright (c) 1993 by David T. Craig'; 

63; { max no. of characters supported per label name } 
= i*****************************************' ■ 

= 'DEBUG' ; { for use by local-label-char argument } 
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<235> 
<236> 
<237> 
<238> 
<239> 
<240> 
<241> 
<242> 
<243> 
<244> 
<245> 
<246> 
<247> 
<248> 
<249> 
<250> 
<251> 
<252> 
<253> 
<254> 
<255> 
<256> 
<257> 
<258> 
<259> 
<260> 
<261> 
<262> 
<263> 
<264> 
<265> 
<266> 
<267> 
<268> 
<269> 
<270> 
<271> 
<272> 
<273> 
<274> 
<275> 
<276> 
<277> 
<278> 
<279> 
<280> 
<281> 
<282> 
<283> 
<284> 
<285> 
<286> 
<287> 
<288> 
<289> 
<290> 
<291> 
<292> 
<293> 
<294> 
<295> 
<296> 
<297> 
<298> 
<299> 



{ speical tool-specific error codes } 



k_err_alpha = 32700; 
k_err_not_text_file = 32700; 
k_err_omega = 32720; 



{ file is not a text file } 



type 

t_string 
t counter 



= string [255] 
= longint; 



{ counts of label lengths, eg L[l] contains count for all labels } 
{ with 1 character, L[2] count for all labels with 2 characters } 



t_length_list 



= array [1. . k_max_label_length] of t_counter; 



t_file_label_info = record 

i_file_lines 
i_label_count 
i_llabel_count 
i_length_min 
i_length_min_n 
i_length_max 
i_length_max_n 
i_length_total 
i_length_avg 
i_length_std 
i_length_stdx2 
i_length_stdx 
i_length_list 
end; 



t_counter ; 
t_counter ; 
t_counter ; 
t_counter ; 
t_string; 
t_counter ; 
t_string; 
t_counter ; 
t_counter ; 
real ; 

t_counter ; 
t counter; 



{ lines in file } 
{ regular labels } 
{ local labels } 
{ min label length } 

{ max label length } 

{ total number of label chars } 

{ avg label length } 

{ standard deviation length } 

{ std dev: sum(x A 2) } 

{ std dev: sum(x) A 2 } 



t_length_list ; 



var 

g_debug_tool 

g_mac_date_time 

g_arg_tool_name 

g_arg_local_label 

g_arg_index 

g_arg_file_name 

g_file_label_info 

g_file_label_info_t 

g_f_count_index 

g_f_count_index_a 

g_f_count_index_z 

g_total_file_sizes 

g_error 

{$S SgAsmLabellnfo} 



boolean ; 
t_string; 
t_string; 
t_string; 
integer ; 
t_string; 

t_f ile_label_inf o ; 
t_f ile_label_inf o ; 
integer ; 
integer ; 
integer ; 
longint ; 
integer ; 



{ write special debugging info } 
{ current machine date/time } 



{ single file label info } 
{ total file label info } 



{ } 

procedure fetch_mac_error_message ( the_error : integer; 

var the_error_msg : t_string) ; 

var 

msg : string [99] ; 

begin 

if (the_error >= k_err_alpha) and (the_error <= k_err_omega) then 
begin 

case the_error of 

k_err_not_text_f ile : msg : = ' File is not a Macintosh text file . ' ; 
otherwise msg := 'Unknown tool error (contact programmer) . ' 

end; { case } 
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<300> 
<301> 
<302> 
<303> 
<304> 
<305> 
<306> 
<307> 
<308> 
<309> 
<310> 
<311> 
<312> 
<313> 
<314> 
<315> 
<316> 
<317> 
<318> 
<319> 
<320> 
<321> 
<322> 
<323> 
<324> 
<325> 
<326> 
<327> 
<328> 
<329> 
<330> 
<331> 
<332> 
<333> 
<334> 
<335> 
<336> 
<337> 
<338> 
<339> 
<340> 
<341> 
<342> 
<343> 
<344> 
<345> 
<346> 
<347> 
<348> 
<349> 
<350> 
<351> 
<352> 
<353> 
<354> 
<355> 
<356> 
<357> 
<358> 
<359> 
<360> 
<361> 
<362> 
<363> 
<364> 



the_error_msg := msg; 
end 
else 
begin 

GetSysErrText (the_error,@the_error_msg) ; 
end; 
end; 



procedure write_error_message (the_error : integer) ; 

var 

err_message : t_string; 

begin 

fetch_itiac_error_message (the_error ,err_message) ; 

writeln(err_message) ; 
end; 



function file_is_text (the_file_name : t_string) : boolean ; 



var 

is_text_file 
finder_info 
file_type 
error 



boolean ; 
FInfo; 
string [4] ; 
integer ; 



begin 

is_text_file := false; 

error := GetFInfo(the file name , , finder info) 



if error = then 
begin 

file_type 

file_type[l] 

file_type[2] 

file_type[3] 

file_type[4] 



= ' ???? ' ; 

= f inder_inf o . f dType [ 1 ] 
= f inder_inf o . f dType [ 2 ] 
= f inder_inf o . f dType [ 3 ] 
= finder_info.fdType[4] 



if g_debug_tool then 

writeln ( ' %%% FILE_IS_TEXT : f dType = " ' , f ile_type , "" ) 

if finder_inf o . f dType = 'TEXT' then 
is_text_file := true; 
end; 

file_is_text := is_text_f ile ; 
end; 



function get_file_size (the_file_name : t_string) : longint; 



var 

f_size 

f_ref 

error 



longint ; 
integer ; 
integer ; 



begin 

f size := 0; 
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<365> 
<366> 
<367> 
<368> 
<369> 
<370> 
<371> 
<372> 
<373> 
<374> 
<375> 
<376> 
<377> 
<378> 
<379> 
<380> 
<381> 
<382> 
<383> 
<384> 
<385> 
<386> 
<387> 
<388> 
<389> 
<390> 
<391> 
<392> 
<393> 
<394> 
<395> 
<396> 
<397> 
<398> 
<399> 
<400> 
<401> 
<402> 
<403> 
<404> 
<405> 
<406> 
<407> 
<408> 
<409> 
<410> 
<411> 
<412> 
<413> 
<414> 
<415> 
<416> 
<417> 
<418> 
<419> 
<420> 
<421> 
<422> 
<423> 
<424> 
<425> 
<426> 
<427> 
<428> 
<429> 



error := FSppen (the_file_name,0,f_ref ) ; 

if error = then 
begin 

error := GetEOF (f_ref ,f_size) ; 

if g_debug_tool and (error = 0) then 

writeln('%%% GET_FILE_SIZE : f_size = ' ,f_size:0) ; 

error := FSClose (f_ref) ; 
end; 

get_file_size := f_size; 
end; 



procedure uppercase (var s : t_string) ; 



i : integer ; 

begin 

if length (s) > then 

for i := 1 to length (s) do 

if (s[i] >= 'a') and (s[i] <= 'z') then 

s[i] := chr( ord(s[i]) - ord('a') + ord('A') ); 
end; 



procedure inc_counter (var the_counter : t_counter) ; 

begin 

the_counter := the_counter + 1; 
end; 



{ 

procedure fetch_label_from_line ( the_file_line : t_string; 

var the_label_phrase : t_string) , 

var 

c_index : integer ; 
done : boolean ; 

begin 

the_label_phrase := ' ' ; 

c_index := 1; 
done := false; 

repeat 

if c_index > length (the_file_line) then 

done := true 
else 
begin 

if the_f ile_line [c_index] <= chr(32) then 

done := true 
else 

the_label_phrase := concat(the_label_phrase, 

the_file_line[c_index] ) ; 
end; 
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<430> 
<431> 
<432> 
<433> 

<434> 
<435> 
<436> 
<437> 
<438> 
<439> 
<440> 
<441> 
<442> 
<443> 
<444> 
<445> 
<446> 
<447> 
<448> 
<449> 
<450> 
<451> 
<452> 
<453> 
<454> 
<455> 
<456> 
<457> 
<458> 
<459> 
<460> 
<461> 
<462> 
<463> 
<464> 
<465> 
<466> 
<467> 
<468> 
<469> 
<470> 
<471> 
<472> 
<473> 
<474> 
<475> 
<476> 
<477> 
<478> 
<479> 
<480> 
<481> 
<482> 
<483> 
<484> 
<485> 
<486> 
<487> 
<488> 
<489> 
<490> 
<491> 
<492> 
<493> 
<494> 



c_index := c_index + 1; 
until done; 
end; 



procedure process_asm_file ( 



the_file_name 
the_file_nvimber 

var the_file_label_info 

var the error 



t_string ; 
integer ; 

t_f ile_label_inf o ; 
integer) ; 



const 

k_label_view_length = 20; 
k_labels_per_line = 3; 

var 

asm_file : text; 

asm_file_line : t_string; 

len_count_index : integer ; 

label_phrase : t_string; 

label_length : integer ; 

file_size : longint; 

begin 

the_error := 0; 

if g_debug_tool then 
begin 

writeln ( ' %%% PROCESS_ASM_FILE : the_f ile_name = " ' , the_f ile_name , "" ) , 
writeln ('%%% PROCESS_ASM_FILE: the_file_number = ' ,the_file_nuiriber:0) ; 
end; 

with the_file_label_info do 
begin 

i_file_lines := 0; 

i_label_count := 0; 

i_llabel_count := 0; 

i_length_min := maxint; 

i_length_min_n := ' ' ; 

i_length_max := 

i_length_max_n : = ' 

i_length_total := 

i_length_avg := 

i_length_std := 0.0; 

i_length_stdx2 := 

i_length_stdx := 

for len_count_index := 1 to k_max_label_length do 
i_length_list[len_count_index] := 0; 
end; 

writeln ; 

writeln (k_divider,k_divider) ; 

writeln ( ' * LABEL INFO FOR FILE : ' , the_f ile_name) ; 

writeln (k_divider , k_divider ) ; 

if file_is_text(the_file_name) then 
begin 

file_size:= get_f ile_size (the_f ile_name) ; 

if file_size <= then 
begin 

the_f ile_label_inf o . i_length_min : = ; 

writeln ('### WARNING: File "',the file name,"' contains no data'); 
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<495> 
<496> 
<497> 
<498> 
<499> 
<500> 
<501> 
<502> 
<503> 
<504> 
<505> 
<506> 
<507> 
<508> 
<509> 
<510> 
<511> 
<512> 
<513> 
<514> 
<515> 
<516> 
<517> 
<518> 
<519> 
<520> 
<521> 
<522> 
<523> 
<524> 
<525> 
<526> 
<527> 
<528> 
<529> 
<530> 
<531> 
<532> 
<533> 
<534> 
<535> 
<536> 
<537> 
<538> 
<539> 
<540> 
<541> 
<542> 
<543> 
<544> 
<545> 
<546> 
<547> 
<548> 
<549> 
<550> 
<551> 
<552> 
<553> 
<554> 
<555> 
<556> 
<557> 
<558> 
<559> 



end 
else 
begin 

reset (asm_file , the_file_name) ; the_error := ioresult; 

if g_debug_tool and (the_error <> 0) then 

writeln('%%% PROCESS_ASM_FTLE : RESET error = ' , the_error : ) ; 
end; 
end 
else 
begin 

the_error := k_err_not_text_f ile ; 
end; 

if (the_error = 0) and (file_size > 0) then 
begin 

while not(eof (asm_file) ) and (the_error = 0) do 
begin 

inc_counter (the_f ile_label_inf o . i_f ile_lines) ; 
if the_f ile_label_inf o . i_f ile_lines mod 16 = then 
begin 

if odd(the_file_number) then 

SpinCursor (+1) 
else 

SpinCursor (-1) ; 
end; 

readln(asm_file,asm_file_line) ; the_error := ioresult; 

if g_debug_tool and (the_error <> 0) then 

writeln('%%% PROCESS_ASM_FTLE : READLN error = ' , the_error : ) ; 

if the_error = then 
begin 

if length (asm_file_line) > then 
begin 

if not (asm_f ile_line [1] in [';','*', chr (0) . . chr (32) ] ) then 
begin 

with the_file_label_info do 
begin 

fetch_label_from_line (asm_file_line,label_phrase) ; 

if length (label_phrase) > k_max_label_length then 
label_phrase := copy (label_phrase, 
1, 
k_max_label_length) ; 

label_length := length (label_phrase) ; 

if label_phrase[l] = g_arg_local_label[l] then 
begin 

{ LOCAL LABEL } 

inc_counter (i_llabel_count) ; 
end 
else 
begin 

{ REGULAR LABEL } 

inc_counter (i_label_count) ; 

inc_counter (i_length_list[label_length] ) ; 

i_length_total := i_length_total + label_length ; 

i_length_stdx2 := 
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<560> 
<561> 
<562> 
<563> 
<564> 
<565> 
<566> 
<567> 
<568> 
<569> 
<570> 
<571> 
<572> 
<573> 
<574> 
<575> 
<576> 
<577> 
<578> 
<579> 
<580> 
<581> 
<582> 
<583> 
<584> 
<585> 
<586> 
<587> 
<588> 
<589> 
<590> 
<591> 
<592> 
<593> 
<594> 
<595> 
<596> 
<597> 
<598> 
<599> 
<600> 
<601> 
<602> 
<603> 
<604> 
<605> 
<606> 
<607> 
<608> 
<609> 
<610> 
<611> 
<612> 
<613> 
<614> 
<615> 
<616> 
<617> 
<618> 
<619> 
<620> 
<621> 
<622> 
<623> 
<624> 



i_length_stdx2 + sqr (label_length) ; 
i_length_stdx := 

i_length_stdx + label_length ; 

if label_length < i_length_min then 
begin 

i_length_min := label_length ; 

i_length_min_n := label_phrase ; 
end; 

if label_length > i_length_max then 
begin 

i_length_max := label_length ; 

i_length_max_n := label_phrase ; 
end; 

if length (label_phrase) > k_label_view_length then 
begin 

label_phrase := copy (label_phrase, 
1, 

k_label_view_length) ; 
label_phrase : = concat (label_phrase ,'?'); 
end; 

while length (label_phrase) < k_label_view_length do 
label_phrase := concat (label_phrase, ' '); 

write (i_f ile_lines : 6 , ' ', label_phrase) ; 
the_error := ioresult; 

if g_debug_tool and (the_error <> 0) then 

writeln ( ' %%% PROCESS_ASM_FILE : WRITE error = ' , 

the_error:0) ; 

if i_label_count mod k_labels_per_line = then 
writeln ; 
end; 
end; { with the file label info } 



end; 



end; 
end; 
end; 

close (asm_f ile) ; 

{ make certain label list ends with a line feed } 

if the_f ile_label_inf o . i_label_count mod k_labels_per_line <> then 
writeln ; 



{ calculate label stats } 

if g_debug_tool then 
begin 

with the_file_label_info do 
begin 

writeln ( ' %%% PROCESS_ASM_FILE 
writeln ( ' %%% PROCESS_ASM_FILE 
writeln ( ' %%% PROCESS_ASM_FILE 
writeln ( ' %%% PROCESS_ASM_FILE 
end; 
end; 

with the_file_label_info do 
begin 



i_length_total = ' ,i_length_total:0) ; 

i_label_count = ' ,i_label_count:0) ; 

i_length_stdx2 = ' ,i_length_stdx2 :0) ; 

i_length_stdx = ' ,i_length_stdx:0) ; 
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<625> 
<626> 
<627> 
<628> 
<629> 
<630> 
<631> 
<632> 
<633> 
<634> 
<635> 
<636> 
<637> 
<638> 
<639> 
<640> 
<641> 
<642> 
<643> 
<644> 
<645> 
<646> 
<647> 
<648> 
<649> 
<650> 
<651> 
<652> 
<653> 
<654> 
<655> 
<656> 
<657> 
<658> 
<659> 
<660> 
<661> 
<662> 
<663> 
<664> 
<665> 
<666> 
<667> 
<668> 
<669> 
<670> 
<671> 
<672> 
<673> 
<674> 
<675> 
<676> 
<677> 
<678> 
<679> 
<680> 
<681> 
<682> 
<683> 
<684> 
<685> 
<686> 
<687> 
<688> 
<689> 



if i_length_total > then 
begin 

i_length_avg := i_length_total div i_label_count; 

i_length_std := sqrt( (i_length_stdx2 - sqr (i_length_stdx) / 

i label count) 



/ 
(i label count - 1) ) ; 



end; 
end; { with the file label info } 



end; 



end; 



procedure get_current_date_time (var s : t_string) ; 

var 

mac_date_time_inf o : longint ; 
date_time_string : str255 ; 

begin 

getdatetime (mac_date_time_info) ; 

iudatestring (mac_date_time_inf o , longdate , date_time_string) ; 

s := date_time_string; 

iutimestring (mac_date_time_inf o , true , date_time_string) ; 

s := concat(s,' ' ,date_time_string) ; 
end; 



M 



} 



begin 

PLSetVBuf ( output, nil ,_iolbf ,0) ; { mpw output buffer flushing control } 

InitCursorCtl (nil) ; { mpw beach ball cursor } 

InitErrMgr ('','', false) ; { mpw error message manager } 

get_current_date_time (g_mac_date_time) ; 

writeln ; 

writeln (k_pgm_title , ' Version: ' ,k_pgm_version) ; 

writeln ( 'Written by ' , k_pgm_author , ' [ ' ,k_pgm_date, ' ' , k_pgm_time , ' ] ' ) ; 

writeln (k_pgm_address) ; 

writeln (k_pgm_copyright) ; 

writeln; 

writeln (' Current Date and Time: ' ,g_mac_date_time) ; 

writeln ; 

g_arg_tool_name : = argv A [ ] A ; 
g_debug_tool := false; 



if argc < 3 then 
begin 



writeln ( 
writeln ( 
writeln ( 
writeln ( 
writeln ( 
writeln ( 
writeln; 
writeln ( ' 



### ERROR : 
### SYNTAX: 

### 



Tool argument list is wrong') ; 

' , g_arg_tool_name , ' local -label -char asm- text-file-list' ) 

where local-label-char is a character that exists at ' ) ; 

the beginning of each local label (eg: "§"),'); 

asm- text- file-list is a list of assembly language ' ) ; 

file names (eg: FooBar.a Frodor.a)'); 

if local -label -char contains the phrase "DEBUG" then ' ) ; 
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<690> 
<691> 
<692> 
<693> 
<694> 
<695> 
<696> 
<697> 
<698> 
<699> 
<700> 
<701> 
<702> 
<703> 
<704> 
<705> 
<706> 
<707> 
<708> 
<709> 
<710> 
<711> 
<712> 
<713> 
<714> 
<715> 
<716> 
<717> 
<718> 
<719> 
<720> 
<721> 
<722> 
<723> 
<724> 
<725> 
<726> 
<727> 
<728> 
<729> 
<730> 
<731> 
<732> 
<733> 
<734> 
<735> 
<736> 
<737> 
<738> 
<739> 
<740> 
<741> 
<742> 
<743> 
<744> 
<745> 
<746> 
<747> 
<748> 
<749> 
<750> 
<751> 
<752> 
<753> 
<754> 



writeln ( ' special debugging information is outputted also ' ) ; 

end 
else 
begin 

with g_file_label_info_t do { label info for all the files } 
begin 

:= 0; 



i_file_lines 

i_label_count 

i_llabel_count 

i_length_min 

i_length_min_n 

i_length_max 

i_length_max_n 

i_length_total 

i_length_avg 

i_length_s td 

i_length_s tdx2 

i_length_s tdx 



= 0; 

= 0; 

= maxint; 

= ' ' ■ 

= 



= 

= 

= 

= 

= 



0; 



for g_f_count_index := 1 to k_max_label_length do 
i_length_list [g_f_count_index] := 0; 
end; 

g_arg_local_label : = argv A [ 1 ] A ; 
uppercase (g_arg_local_label) ; 

if pos(k_debug_phrase,g_arg_local_label) > then 
begin 

g_debug_tool := true; 

delete (g_arg_local_label , 

pos (k_debug_phrase,g_arg_local_label) , 
length (k_debug_phrase) ) ; 



writeln ( ' '- 
writeln ( ' '■ 
end; 



local label arg string contains debug flag phrase ' ) ; 
g_arg_local_label (after delete) = " ' , g_arg_local_label , "" ) ; 



if g_debug_tool then 

writeln ('%%% g_arg_local_label = " ' , g_arg_local_label , ' " ', 
'length = ' , length (g_arg_local_label) :0) ; 

if length (g_arg_local_label) = then 
begin 

g_arg_local_label : = ' ? ' ; 

g_arg_local_label[l] := chr(255) ; 
end; 

if g_arg_local_label [1] <= ' ' then 
g_arg_local_label := chr(255) ; 

if g_debug_tool then 

writeln ('%%% argc = ',argc:0); 

g_arg_index := 1; 

while (g_arg_index < (argc - 1) ) do 
begin 

g_arg_index := g_arg_index + 1; 

g_arg_f ile_name : = argv A [g_arg_index] A ; 

if g_debug_tool then 

writeln('%%% file arg # ' , g_arg_index : 3 , ' is " ' ,g_arg_file_name, "" ) ; 

process_asm_file (g_arg_f ile_name , g_arg_index - 1, g_f ile_label_inf o , g_error) ; 
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<755> 
<756> 
<757> 
<758> 
<759> 
<760> 
<761> 
<762> 
<763> 
<764> 
<765> 
<766> 
<767> 
<768> 
<769> 
<770> 
<771> 
<772> 
<773> 
<774> 
<775> 
<776> 
<777> 
<778> 
<779> 
<780> 
<781> 
<782> 
<783> 
<784> 
<785> 
<786> 
<787> 
<788> 
<789> 
<790> 
<791> 
<792> 
<793> 
<794> 
<795> 
<796> 
<797> 
<798> 
<799> 
<800> 
<801> 
<802> 
<803> 
<804> 
<805> 
<806> 
<807> 
<808> 
<809> 
<810> 
<811> 
<812> 
<813> 
<814> 
<815> 
<816> 
<817> 
<818> 
<819> 



if g_error <> then 
begin 

writeln ( ' ### ERROR ' , g_error : , 
' while processing file 
write ( ' ' ) ; 

write_error_message (g_error) ; 
end 
else 
begin 

writeln (k_divider,k_divider) ; 
writeln ( ' * FILE LABEL STATISTICS ' ) ; 
writeln (k_divider,k_divider) ; 

with g_file_label_info do 
begin 

writeln ( ' File Lines = 

writeln ( ' Label Count = 
writeln ( ' Local Label Count = 
writeln ('Min Label Length = 



,g_arg_file_name, "" ) ; 



writeln ( 'Max 



Label Length = 



writeln ('Avg Label Length 
writeln ( ' Std Dev Label Length 



' ,i_file_lines:8) ; 
' ,i_label_count:8) ; 
' ,i_llabel_count:8) , 
' , i_length_min : 8 , ' 

i_length_min_n) ; 
' , i_length_max : 8 , ' ' 

i_length_max_n) ; 
' ,i_length_avg:8) ; 
' , i_length_std : 8 : 2 ) , 



writeln; 

writeln ( ' Label Length Frequency Counts : ' ) ; 

g_f_count_index_a := 0; 
g_f_count_index_z := 0; 

for g_f_count_index := 1 to k_max_label_length do 
if g_f_count_index_a = then 

if i_length_list [g_f_count_index] <> then 
g_f_count_index_a := g_f _count_index ; 

for g_f_count_index := k_max_label_length down to 1 do 
if g_f_count_index_z = then 

if i_length_list [g_f_count_index] <> then 
g_f_count_index_z := g_f _count_index ; 

if (g_f_count_index_a =0) or (g_f_count_index_z = 0) then 
writeln ( ' There were no labels to count for this file ' ) 
else 

for g_f_count_index := g_f_count_index_a to g_f_count_index_z do 
writeln ( ' No . Labels with Length ' , g_f_count_index : 3 , ' : ' , 
i_length_list [g_f_count_index] :8) ; 
end; { with g_file_label_info } 

writeln (k_divider,k_divider) ; 

writeln('* END OF FILE: ' ,g_arg_file_name) ; 

writeln (k_divider,k_divider) ; 

writeln; 

{ accumulate total file label info } 



with g_file_label_info_t do 
begin 

:= i file lines 



i_file_lines 
i_label_count 
i_llabel_count 
i_length_total 



= i_label_count 
= i_llabel_count 
= i_length_total 



+ g_f ile_label_inf o . i_f ile_lines ; 
+ g_f ile_label_inf o . i_label_count ; 
+ g_f ile_label_inf o . i_llabel_count ; 
+ g_f ile_label_inf o . i_length_total ; 



if g_f ile_label_inf o . i_length_min < i_length_min then 
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<820> 
<821> 
<822> 
<823> 
<824> 
<825> 
<826> 
<827> 
<828> 
<829> 
<830> 
<831> 
<832> 
<833> 
<834> 
<835> 
<836> 
<837> 
<838> 
<839> 
<840> 
<841> 
<842> 
<843> 
<844> 
<845> 
<846> 
<847> 
<848> 
<849> 
<850> 
<851> 
<852> 
<853> 
<854> 
<855> 
<856> 
<857> 
<858> 
<859> 
<860> 
<861> 
<862> 
<863> 
<864> 
<865> 
<866> 
<867> 
<868> 
<869> 
<870> 
<871> 
<872> 
<873> 
<874> 
<875> 
<876> 
<877> 
<878> 
<879> 
<880> 
<881> 
<882> 
<883> 
<884> 



begin 

i_length_min := g_f ile_label_inf o . i_length_min ; 

i_length_min_n : = g_f ile_label_inf o . i_length_min_n ; 
end; 

if g_f ile_label_inf o . i_length_max > i_length_max then 
begin 

i_length_max := g_f ile_label_inf o . i_length_max ; 
i_length_max_n : = g_f ile_label_inf o . i_length_max_n ; 
end; 

i_length_stdx2 := i_length_stdx2 + g_f ile_label_inf o . i_length_stdx2 ; 
i_length_stdx := i_length_stdx + g_f ile_label_inf o . i_length_stdx ; 

for g_f_count_index := 1 to k_max_label_length do 

i_length_list [g_f_count_index] := i_length_list [g_f_count_index] + 
g_f ile_label_inf o . i_length_list [g_f_count_index] ; 
end; { with g_file_label_info_t } 
end; 
end; { while } 

if g_error = then 
begin 

{ calculate final stats } 

if g_debug_tool then 
begin 

with g_file_label_info_t do 
begin 

writeln('%%% (total) i_length_total = ' ,i_length_total:0) ; 
writeln('%%% (total) i_label_count = ' ,i_label_count:0) ; 
writeln('%%% (total) i_length_stdx2 = ' ,i_length_stdx2:0) ; 
writeln('%%% (total) i_length_stdx = ' ,i_length_stdx:0) ; 
end; 
end; 

with g_f ile_label_info_t do 
begin 

i_length_avg := i_length_total div i_label_count; 

i_length_std := sqrt( (i_length_stdx2 - sqr (i_length_stdx) / 

i_label_count) 
/ 
(i_label_count - 1) ) ; 
end; { with g_file_label_info_t } 

{ show final stats and list of file names } 

writeln (k_divider , k_divider) ; 
writeln('* SUMMARY FILE LABEL INFO:'); 
writeln (k_divider , k_divider) ; 

writeln (' File Name List:'); 

g_total_file_sizes := 0; 

for g_f_count_index := 2 to (argc - 1) do 
begin 

g_arg_f ile_name : = argv A [g_f_count_index] A ; 

write ( ' [ ' , (g_f_count_index-l) : 3 , ' ] ' ) ; 

write ( ' Text File? ' ) ; 
if file_is_text(g_arg_file_name) then 
write ( ' Yes ' ) 
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<885> 
<886> 
<887> 
<888> 
<889> 
<890> 
<891> 
<892> 
<893> 
<894> 
<895> 
<896> 
<897> 
<898> 
<899> 
<900> 
<901> 
<902> 
<903> 
<904> 
<905> 
<906> 
<907> 
<908> 
<909> 
<910> 
<911> 
<912> 
<913> 
<914> 
<915> 
<916> 
<917> 
<918> 
<919> 
<920> 
<921> 
<922> 
<923> 
<924> 
<925> 
<926> 
<927> 
<928> 
<929> 
<930> 
<931> 
<932> 
<933> 
<934> 
<935> 
<936> 
<937> 
<938> 
<939> 
<940> 
<941> 
<942> 
<943> 
<944> 
<945> 
<946> 
<947> 



else 

write ( 'No 



'); 



write ('Size: ' ,get_file_size(g_arg_file_name) :8, ' bytes - '); 

g_total_file_sizes := g_total_file_sizes + 

get_f ile_size (g_arg_f ile_name) ; 

writeln ( "" , g_arg_f ile_name ,'"'); 
end; 



writeln ( ' 
writeln ( ' 



'); 

' ,g_total_file_sizes:8) ; 



with g_f ile_label_info_t do 
begin 

writeln ; 

writeln ('All File Label Statistics:'); 

writeln (' File Lines = ' ,i_file_lines:8) ; 

writeln (' Label Count = ' ,i_label_count:8) ; 

writeln (' Local Label Count = ' ,i_llabel_count:8) ; 

writeln ( ' Min Label Length = ' , i_length_min : 8 , ' ' , 

i_length_min_n) ; 
writeln ( ' Max Label Length = ' , i_length_max : 8 , ' ' , 

i_length_max_n) ; 
writeln (' Avg Label Length = ' ,i_length_avg:8) ; 
writeln (' Std Dev Label Length = ' ,i_length_std:8:2) ; 

writeln ; 

writeln ( ' Label Length Frequency Counts : ' ) ; 

g_f_count_index_a := 0; 
g_f_count_index_z := 0; 

for g_f_count_index := 1 to k_max_label_length do 
if g_f_count_index_a = then 

if i_length_list [g_f_count_index] <> then 
g_f_count_index_a := g_f_count_index ; 

for g_f_count_index := k_max_label_length downto 1 do 
if g_f_count_index_z = then 

if i_length_list [g_f_count_index] <> then 
g_f_count_index_z := g_f_count_index ; 

if (g_f_count_index_a = 0) or (g_f_count_index_z = 0) then 
writeln ( ' There were no labels to count for this file ' ) 
else 

for g_f_count_index := g_f_count_index_a to g_f_count_index_z do 
writeln (' No. Labels with Length ' , g_f_count_index : 3 , ' : ', 
i_length_list [g_f_count_index] :8) ; 
end; { with g_file_label_info_t } 

writeln (k_divider , k_divider) ; 
writeln('* END OF SUMMARY FILE LABEL INFO') ; 
writeln (k_divider , k_divider ) ; 
end; 



end; 



writeln; 

writeln ( ' That ' ' s all Folks ! ' ) ; 
end. 

{ FINIS } 
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For those with a curiosity about the Lisa's 68000 assembler here's the assembler's 
progress information for the assembly of the Boot ROM sources (this assembler ran in 
the Lisa Workshop environment and was called either the Lisa Assembler or the TLA 
Assember [TLA stood for The Last Assembler and was used for this assembler since it was 
designed to use external definition data files containing opcode information which 
allowed the assembler to process different assembly languages depending upon the 
contents of the external definition data files] ) : 



1> 

2> 
3> 

4> 
5> 
6> 

7> 
8> 
9> 



############################################################################### 

# # 

# APPLE LISA BOOT ROM 2.48 SOURCE CODE ASSEMBLER PROGRESS INFORMATION # 

# # 
############################################################################### 



ASSEMBLER - MC68000 (Ver 3.77) 02-May-85 
(C) 1984 Apple Computer Inc. 



< 10> 

< 11> 

< 12> 

< 13> 

< 14> 

< 15> 

< 16> 

< 17> 

< 18> 

< 19> 

< 20> 

< 21> 

< 22> 

< 23> 

< 24> 

< 25> 

< 26> 

< 27> 

< 28> 

< 29> 

< 30> 

< 31> 

< 32> 

< 33> 

< 34> 

< 35> 

< 36> 

< 37> 

< 38> 

< 39> 

< 40> 

< 41> 

< 42> 

< 43> 

< 44> 

< 45> 

< 46> 

< 47> 

< 48> 

< 49> 

< 50> 

< 51> 

< 52> 

< 53> 

< 54> 

< 55> 

< 56> 



Options : 
+P 

+S 
+E 
? 

<ret> 



Meaning Current Value. 

Pretty Listing FALSE 

Print Space Avail FALSE 

Code patching efficiency check FALSE 
Print options 
Accept options 



Input file ? [.TEXT] ? 

options : +P 
options : 

Input file ? [.TEXT] RM248.E 

Listing file (<CR> for none) ? [.TEXT] 

Output file ? [RM248.E] [.OBJ] RM248 



-PROFILE-RM248 . LIST 



< 0> 

< 500> 

< 1000> 

< 1500> 

.INCLUDE RM248.K.TEXT 

< 1667>. 

.PROC LISAROM,0 

< 1674> 

< 2000> 

< 2500> 

< 3000> 

< 3500> 

.INCLUDE RM248.S.TEXT 

< 3567> 

< 4000> 

< 4500> 

< 5000> 

< 5500> 

.INCLUDE RM248.B.TEXT 

< 5551> 

< 6000> 

< 6500> 

< 7000> 

< 7500> 

.INCLUDE RM248.M.TEXT 
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< 57> 

< 58> < 7667> 

< 59> < 8000> 

< 60> < 8500> 

< 61> < 9000> 

< 62> < 9500> 

< 63> .INCLUDE RM248.G.TEXT 

< 64> 

< 65> < 9602> 

< 66> <10000> 

< 67> <10500> 

< 68> <11000> 

< 69> <11500> 

< 70> 

< 71> Assembly complete: 11840 lines 

< 72> Warnings 

< 73> Errors 

< 74> 

< 75> MC68000 Assembly Pretty Listing (Ver 3.77) 

< 76> 

< 77> pass one - getting patches 

< 78> < 0> 

< 79> < 100> 

< 80> < 200> 

< 81> < 300> 

< 82> < 400> 

< 83> < 500> 

< 84> < 600> 

< 85> < 700> 

< 86> < 800> 

< 87> < 900> 

< 88> <1000> 

< 89> <1100> 

< 90> <1200> 

< 91> <1300> 

< 92> <1400> 

< 93> <1500> 

< 94> <1600> 

< 95> <1700> 

< 96> <1800> 

< 97> pass two - making updates 

< 98> < 0> 

< 99> < 100> 

<100> < 200> 

<101> < 300> 

<102> < 400> 

<103> < 500> 

<104> < 600> 

<105> < 700> 

<106> < 800> 

<107> < 900> 

<108> <1000> 

<109> <1100> 

<110> <1200> 

<111> <1300> 

<112> <1400> 

<113> <1500> 

<114> <1600> 

<115> <1700> 

<116> <1800> 

<117> 

<118> ASSEMBLY CCMPLETE. 

X.7 BOOT ROM CHARACTER FONT 



The Legacy of the « Lisa: An Outsider's View [Chapter XXX] REVISION 1 71 of 80 



The boot ROM supported a character font which the ROM used for its menus, icons, and 
Service Mode. This font supported only a limited number of characters, which follow: 

(space) . - / 0123456789 ABCDEFGHIJKLMNOP ? (inverse ?) (Apple symbol) 

Note that no lowercase characters existed in this font, and only a few special 
characters (e.g. /) appeared. 

Complete bitmaps of these characters follow. These were produced by David Craig's 
program DTCLisaBootROMFonts whose source code appears at the end of this section. 
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The Macintosh MPW Pascal source code for the program DTCLisaBootROMFonts follows : 



00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 



APPLE LISA COMPUTER BOOT ROM FONT TABLE DUMPER 

THIS MACINTOSH MPW SHELL TOOL WRITES THE DATA CONTAINED IN THE APPLE 
LISA COMPUTER'S BOOT ROM FONT TABLE TO THE ACTIVE WINDOW AS TEXTUAL 
DATA. THE LISA FONT TABLE DATA IS EMBEDDED WITHIN THIS TOOL. 

WRITTEN BY DAVID T. CRAIG FOR HIS LISA LEGACY REVISION PAPER 
04 SEPTEMBER 1994 



program lisa_boot_rom_f ont_bitmaps ; 

const k_pgm_name = 'Lisa Computer Boot ROM Font Bitmap Drawer' ; 

k_pgm_author = ' David T . Craig ' ; 

k_pgm_date = '04 September 1994'; 

k font count = 43; 



type 



t_font_description = string [31] ; 

t_font_bitmaps = array [1. . k_f ont_count] of t_font_description; 

{ chars 1-12 = bitmaps, 14+ = char name } 
t_font_bitmap_data = array [1..6] of char; 
t_hex = string [2] ; 

t_bit_image = string [8] ; 



v_font_bitmaps 

v_font_bitmap_index 

v_font_bitmap_data 

v_font_char 

v_bit_image 

v_bit_image_i 



t_f ont_bitmaps ; 
1 . . k_font_count; 
t_f ont_bitmap_data ; 
t_f ont_description ; 
t_bit_image ; 
1..6; 



{ initialize the boot rom font bitmaps, this data is from the rom 
source file "RM248.G.TEXT" and the table titled "AsciiTable" } 



procedure init_f ont_bitmaps ; 



begin 

v_f ont_bitmaps [ 
v_f ont_bitmaps [ 
v_f ont_bitmaps [ 
v_f ont_bitmaps [ 
v_f ont_bitmaps [ 
v_f ont_bitmaps [ 



1] 


= '000000000000 


spa 


2] 


= '0000007C0000 


-' ; 


3] 


= '000000000030 


. ' ; 


4] 


= '040810204080 


/'; 


5] 


= '384444444438 


0'; 


6] 


= '083808080808 


1' ; 
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00047 


v font bitmaps [ 


7] 


= 


'38440810207C 


2'; 










00048 


v_f ont_bitmaps [ 8] 


= 


'384418044438 


3'; 








00049 


v_font_bitmaps [ 9] 


= 


'081828487C08 


4' ; 








00050 


v font bitmaps [10] 


= 


'7C4078044438 


5'; 








00051 


v font bitmaps [11] 


= 


'384078444438 


6'; 








00052 


v font bitmaps [12] 


= 


'7C0810102020 


7' ; 








00053 


v_font_bitmaps [13] 


= 


'384438444438 


8'; 








00054 


v font bitmaps [14] 


= 


'3844443C0438 


9'; 








00055 


v_font_bitmaps [15] 


= 


'304884FC8484 


A' ; 








00056 


v font bitmaps [16] 


= 


'F884F88484F8 


B' ; 








00057 


v font bitmaps [17] 


= 


'788480808478 


C ; 








00058 


v font bitmaps [18] 


= 


'F884848484F8 


D' ; 








00059 


v_font_bitmaps [19] 


= 


'FC80F88080FC 


E' ; 








00060 


v font bitmaps [20] 


= 


'FC80F8808080 


F' ; 








00061 


v font bitmaps [21] 


= 


'7884809C847C 


G'; 








00062 


v font bitmaps [22] 


= 


'8484FC848484 


H' ; 








00063 


v_font_bitmaps [23] 


= 


'381010101038 


I' ; 








00064 


v font bitmaps [24] 


= 


'1C0808088870 


J' ; 








00065 


v_font_bitmaps [25] 


= 


'8890A0D08884 


K" ; 








00066 


v font bitmaps [26] 


= 


'8080808080FC 


L' ; 








00067 


v font bitmaps [27] 


= 


'84CCB4848484 


M' ; 








00068 


v font bitmaps [28] 


= 


'84C4A4948C84 


N' ; 








00069 


v_font_bitmaps [29] 


= 


'788484848478 


0' ; 








00070 


v_font_bitmaps [30] 


= 


'F88484F88080 


P' ; 








00071 


v_font_bitmaps [31] 


= 


'788484849478 


Q'; 








00072 


v_f ont_bitmaps [32 ] 


= 


'F88484F88884 


R' ; 








00073 


v_font_bitmaps [33] 


= 


'788460188478 


S' ; 








00074 


v_f ont_bitmaps [34 ] 


= 


'FE1010101010 


T' ; 








00075 


v_font_bitmaps [35] 


= 


'848484848478 


U' ; 








00076 


v_font_bitmaps [36] 


= 


'444428281010 


V ; 








00077 


v_f ont_bitmaps [37 ] 


= 


' 828292AA4444 


W ; 








00078 


v_font_bitmaps [38] 


= 


'442810284482 


X' ; 








00079 


v_font_bitmaps [39] 


= 


'824428101010 


Y' ; 








00080 


v font bitmaps [40] 


= 


'FC08102040FC 


Z' ; 








00081 


v font bitmaps [41] 


= 


'384408100010 


?' ; 








00082 


v font bitmaps [42] 


= 


' C7BBF7EFFFEF 


inverse ? ' ; 








00083 


v_font_bitmaps [43] 


= 


' 0877FEFE7F3E 


apple icon' ; 








00084 


end; 














00085 
















00086 


{ 












} 


00087 
















00088 


function cvt hex2byte 


(h 


: t_hex) : char; {eg: '1C 


— > 


chr (28) } 




00089 
















00090 


type t_nibble = . . 15 














00091 


var msn, lsn : t nib! 


3le 


; 










00092 
















00093 


function digit2nibble 


(d 


: char) : t_nibble; 








00094 
















00095 


var n : t nibble; 














00096 
















00097 


begin 














00098 


case d of 














00099 


'0' : n := 






'1' : n := 1 


'2' 


n 


:= 2 


'3' : n := 3 




00100 


'4' : n := 4 






'5' : n := 5 


'6' 


n 


:= 6 


'7' : n := 7 




00101 


'8' : n := 8 






'9' : n := 9 


'A' 


n 


:= 10 


'B' : n := 11 




00102 


■C : n := 12 






'D' : n := 13 


, E , 


n 


:= 14 


'F' : n := 15 




00103 


end; 














00104 


digit2nibble := n; 














00105 


end; 














00106 
















00107 


begin 














00108 


msn := digit2nibble 


(h[ 


i]); 










00109 


lsn := digit2nibble 


(h[ 


2]); 










00110 


cvt hex2byte := chr 


{ (msn * 16) + l! 


sn ); 








00111 


end; 
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00112 
00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00158 
00159 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00168 
00169 
00170 
00171 
00172 



procedure convert_bitmap_to_data 



( f_desc 
var f data 



t_f ont_description ; 
t_font_bitmap_data) , 



begin 

f_data[l] 
f_data[2] 
f_data[3] 
f_data[4] 
f_data[5] 
f_data[6] 

end; 

{ 



cvt_hex2byte 
cvt_hex2byte 
cvt_hex2byte 
cvt_hex2byte 
cvt_hex2byte 
cvt_hex2byte 



(copy (f_desc, 
(copy (f_desc, 
(copy (f_desc, 
(copy (f_desc, 
(copy (f_desc, 



1,2)) 

3,2)) 
5,2)) 
7,2)) 
9,2)) 



(copy (fjdesc, 11 , 2) ) 



procedure get_bit_image (bite : char; var bit_image : t_bit_image) ; 

var 1 : longint; 
i : . . 7 ; 



begin 

bit_image 



:= concat(chr(127) ,chr(127) ,chr(127) ,chr(127) , 
chr(127) ,chr(127) ,chr(127) ,chr(127)) , 
{ should appear as an empty square } 



1 := ord(bite) ; 

for i := to 7 do begin 
if BTST(l,i) = false then 
bit_image[8-i] := ' '; 
end; 
end; 



begin 

writeln (k_pgm_name) ; 
writeln(k_pgm_author, ' ' ,k_pgm_date) ; 

init_f ont_bitmaps ; 

for v_font_bitmap_index := 1 to k_font_count do begin 
v_font_char := v_font_bitmaps [v_f ont_bitmap_index] ; 
convert_bitmap_to_data (v_f ont_char , v_f ont_bitmap_data) ; 

wri teln (copy (v_font_char, 14, length (v_font_char) -13) ) ; 

writeln ( ' COOOOOCOOO ' ) ; 

for v_bit_image_i := 1 to 6 do begin 

get_bit_image (v_font_bitmap_data [v_bit_image_i] ,v_bit_image) 

writeln ( ' ' , v_bit_image , ' ' ) ; 
end; 

writeln ( ' COOOOOCOOO ' ) ; 
end; 

writeln ( ' That ' ' s all folks ! ' ) ; 
end. 



X.8 



BOOT ROM FOREIGN PHRASES 
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The Boot ROM supported the display of phrases in the following languages: English, 
French , or German . 

The language phrases that appeared were based upon the type of keyboard connected to 
the Lisa. All Lisa keyboards were self-identifiying. As such, a Lisa user could 
attach for example a German Lisa keyboard and the Boot ROM phrases would appear in 
German. English phrases appeared for US, UK, and Canadian keyboards. If a keyboard 
type was not US, UK, Canadian, German, or French, then the Boot ROM displayed its 
phrases in English, German, and French (the Hardware Interface appendix in the Lisa 
Language Workshop manual listed the following keyboards that could be attached to the 
Lisa: US, Swiss-German, Swiss-French, Portuguese, Spanish-Latin America, Danish, 
Swedish, Italian, French, German, UK, French -Canadi an , US-Dvorak, and APL) . 

Service Mode phrases were not translated since this mode was ment for use only by Apple 
manufacturing and repair people who would most likely be English speakers (these people 
tended to reside in either Cupertino California or Carrollton Texas, Apple's main Lisa 
manufacturing facility) . 

The English, French, and German language phrases existed in several tables: 



< 1> CHKMSG .ASCII 'TESTING' 

< 2> .BYTE 

< 3> .ASCII 'TEST' 

< 4> .BYTE 

< 5> .ASCII 'ES WIRD GETESTET' 

< 6> .BYTE 

< 7> 

< 8> RTRYMSG .ASCII 'RESTART' 

< 9> .BYTE 
.ASCII 'RECOMMENCER' 
.BYTE 



ASCII 
BYTE 



< 10> 

< 11> 

< 12> 

< 13> 

< 14> 

< 15> CONTMSG .ASCII 

< 16> .BYTE 

< 17> 

< 18> 

< 19> 

< 20> 

< 21> 

< 22> STRTl* 

< 23> 

< 24> 

< 25> 

< 26> 

< 27> 



'NEU STARTEN' 



' CONTINUE ' 



; French translation 
; German translation 

; French 

; German 



.ASCII 


'CONTINUER' 


/French 


.BYTE 







.ASCII 


'WEITERMACHEN' 


; German 


.BYTE 







.ASCII 


'STARTUP FROM' 




.BYTE 







.ASCII 


'DEMARRER DE ' 


/French 


.BYTE 







.ASCII 


'STARTEN VON' 


/German 


.BYTE 








The Boot ROM routine (DSPSTRING, "Display String") that displayed all language messages 
follows (note the reference to Italian and Spanish keyboards) : 



< 


1> 


< 


2> 


< 


3> 


< 


4> 


< 


5> 


< 


6> 


< 


7> 


< 


8> 


< 


9> 


< 


10> 


< 


11> 



Subroutine to display text string according to keyboard id 
Inputs : 

A3 = ptr to message 

Dl = nonzero if ' . . . ' string to be appended 
Outputs : 

A2 = ptr to start of string 

A3 = ptr to end of string 
Side Effects: 

D5-D6, A3 trashed 
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12> 
13> 
14> 
15> 
16> 
17> 
18> 
19> 
20> 
21> 
22> 
23> 
24> 
25> 
26> 
27> 
28> 
29> 
30> 
31> 
32> 
33> 
34> 
35> 
36> 
37> 
38> 
39> 
40> 
41> 
42> 
43> 
44> 
45> 
46> 
47> 
48> 
49> 
50> 
51> 
52> 
53> 
54> 
55> 
56> 
57> 
58> 
59> 
60> 
61> 
62> 
63> 
64> 
65> 
66> 
67> 
68> 
69> 
70> 
71> 
72> 
73> 
74> 
75> 
76> 



DSPSTRING 

MOVEM.L D0/D2,-(SP) 

LEA MENUHDG,A2 

CMPA.L A2,A3 

BEQ.S DSPOUT 

MOVE . L A3 ,A2 

MOVE.B KEYID,D0 

BEQ.S DSPOUT 

ANDI.B #$3F,D0 

MOVE.B D0,D2 



;save regs 

; don't translate service mode messages 

;skip if it is 

;else save starting point 

;get keyboard id 

;skip if no id available 

; clear mfg code 

;move to working reg 



Search for US, UK or Canadian keyboard 



@1 



ANDI.B #$F0,D2 

BEQ.S DSPOUT 

CMPI.B #$30, D2 

BNE.S @1 

CMPI.B #$3D,D0 

BEQ.S DSPALL 

BRA.S DSPOUT 

CMPI.B #$20, D2 

BNE . S DSPALL 

CMPI.B #$2F,D0 

BEQ.S DSPOUT 



;old US keyboard? 

;yes - go do English display 

;US or Canadian layout? 

/Canadian? 

;yes - display all languages 

;else just English 

/European keyboard? 

;no - display all languages 

;UK? 

;yes - display English 



Search for German type keyboard 

/German? 

; Swiss-German? 



CMPI.B #$2E,D0 

BEQ.S DSPGERMN 

CMPI.B #$26, DO 

BEQ.S DSPGERMN 



Search for French type keyboard 

; French? 

; Swiss-French? 



CMPI.B #$2D,D0 

BEQ.S DSPFRNCH 

CMPI.B #$27, DO 

BEQ.S DSPFRNCH 



Display all languages for any other keyboard (e.g., Italian, Spanish, etc.) 



DSPALL BTST 
BNE.S 
SUB 
BSR.S 
ADD 
BSR.S 
ADD 
BRA.S 



@1 



BSR.S 
BSR.S 
BRA.S 



DSPGERMN 



TST.B 
BNE.S 



#MENU,STATFLGS 

@1 

#CHRSPC,D5 

DSPIT 

#CHRSPC,D5 

DSPIT 

#CHRSPC,D5 

DSPOUT 

DSPMSLSH 
DSPMSLSH 
DSPOUT 



(A3) + 
DSPGERMN 



DSPFRNCH 



TST.B 
BNE.S 
MOVE . L A3 ,A2 



(A3) + 
DSPFRNCH 



; doing menu? 

;skip if yes 

;back up one row 

/display English string 

;incr to next row 

/display French translation 

;bump another row 

;go do final display of German 

/display English followed by / 
/display French followed by / 
;and go do final German display 



/skip two strings before output 

/skip one string before output 
/save new beginning ptr 
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< 77> DSPOUT BSR.S DSPIT ;do display 

< 78> MOVEM.L (SP)+,D0/D2 /restore regs 

< 79> RTS ; and exit 



X.9 



BOOT ROM ICONS 



xxxxxx 

X.10 BOOT ROM MOUSE CURSOR BITMAP 

The Boot ROM supported the mouse for menu command selections . The mouse had a pointer 
graphic associated with it which had the following bitmap image (the image on the left 
is the actual size, the image on the right is magnified for clarity) : 




The bitmap definition for the mouse cursor from the Boot ROM source code follows : 



< 


1> 


CrsrData 




< 


2> 


CrsrMask 




< 


3> 




.WORD 


< 


4> 




.WORD 


< 


5> 




.WORD 


< 


6> 




.WORD 



; arrow for mouse cursor 
; same for mask 



$8000 , $C000 , $E000 , $F000 
$F800 , $FC00 , $FE00 , $FF00 
$F800 , $F800 , $CC00 , $8C00 
$0600, $0600, $0300, $0300 



End of Chapter 
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